В массиве из 15 чисел введенных с клавиатуры,найти количество элементов не превышающих 200

Ответ:

var a:array [1..15] of integer ;

   i,col:integer;

begin

for i:=1 to  15 do

begin

readln(a[i]);

if a[i]>200 then col:=col+1;

end;

writeln('Колічесто: ',col);

end.

Объяснение: