Предмет: Информатика,
автор: Emo4ka1998
Помогите!!!!паскаль. Заранее спасибо))) паскаль. 1)известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку пять?Условный оператор не использовать
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Геометрия,
автор: nedown34
Предмет: Литература,
автор: pavoloiv3ankiv
Предмет: Математика,
автор: ivankosyk2009
Предмет: Математика,
автор: Улика
Предмет: Алгебра,
автор: Elvinka1998