При поступлении в вуз абитуриенты, получившие "двойку" на первом экзамене, ко второму не допускаются. В массиве A[n] записаны оценки экзаменующиеся, полученные на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену.
Язык программирования Паскаль ABC
Ответы на вопрос
Ответил ihorsyrota
0
program p1;
const n=10;
var i,c:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
writeln('Введите оценку ',i,' экзаменующегося: ');
read(a[i]);
if(a[i]=2) then c:=c+1;
end;
writeln('К-во не допущенных: ',c);
end.
const n=10;
var i,c:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do begin
writeln('Введите оценку ',i,' экзаменующегося: ');
read(a[i]);
if(a[i]=2) then c:=c+1;
end;
writeln('К-во не допущенных: ',c);
end.
Ответил ostin2319
0
нужно
Ответил ostin2319
0
Дана последовательность целых чисел а1, а2, ..an. Образовать новую последовательность, выбросив из исходной те члены, которые равны min (а1, а2..an)
Ответил ostin2319
0
помогите
Ответил ihorsyrota
0
program p1;
const n=10;
var i,c:integer;
a:array[1..n] of integer=(2,3,4,5,10,2,4,6,9,10);
begin
for i:=1 to n do begin
if(a[i]=2) then c:=c+1;
end;
writeln('К-во не допущенных: ',c);
end.
const n=10;
var i,c:integer;
a:array[1..n] of integer=(2,3,4,5,10,2,4,6,9,10);
begin
for i:=1 to n do begin
if(a[i]=2) then c:=c+1;
end;
writeln('К-во не допущенных: ',c);
end.
Ответил ihorsyrota
0
вот с наперёд массивом =)
Новые вопросы
Математика,
2 года назад
История,
9 лет назад
Математика,
9 лет назад
Математика,
9 лет назад
Математика,
9 лет назад