Помогите!!!!паскаль. Заранее спасибо))) паскаль. 1)известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку пять?Условный оператор не использовать
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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;
write(c-1);
end.