Помогите!!!!паскаль. Заранее спасибо))) паскаль. 1)известны оценки по информатике каждого...

Question

Помогите!!!!паскаль. Заранее спасибо))) паскаль. 1)известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку пять?Условный оператор не использовать

Answer 1

program primer;
var a:array[1..20] of integer;
b,c:integer;

begin
write('write raiting');writeln ;
for b:=1 to 20 do
read(a[b]);
c:=1;
repeat
inc(c);

until a[c]<5;<br>write(c-1);

 

end.