Предмет: Информатика,
автор: Гзыжа
Дан массив. Напишите пропущенные команды.
Приложения:

Ответы
Автор ответа:
0
var
a: array[1..19] of real;
i, kb: integer;
begin
for i := 1 to 19 do Read(a[i]);
kb := 0;
for i := 1 to 19 do
if a[i] > 56 then kb := kb + 1;
writeln(kb)
end.
Похожие вопросы
Предмет: Математика,
автор: sofi198734
Предмет: Химия,
автор: lubanime1
Предмет: Математика,
автор: aleks121231
Предмет: Математика,
автор: lemenkva300
Предмет: Алгебра,
автор: gavel99