Question

Дан массив. Напишите пропущенные команды.

Answer 1

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.