Заранее паскаль. 1)известны оценки по информатике - вопрос №494713120 от wektorwrt12345 18.12.2020 00:11

Question

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

wektorwrt12345 · Answer

program primer;var a:array[1..20] of integer;b,c:integer; beginwrite( write raiting );writeln ;for b:=1 to 20 doread(a[b]);c:=1;repeatinc(c); until a[c] 5;write(c-1);   end....