При поступлении в вуз абитуриенты, получившие "двойку" на первом экзамене, ко второму не допускаются. В массиве A[n] записаны оценки экзаменующиеся, полученные на первом экзамене. Подсчитать, сколько человек не допущено ко второму экзамену.
Язык программирования Паскаль ABC
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
