Question

можете проверить,а если не правильно,то исправить ?

var

a:array [1..10] of integer;

i:integer;

begin

for i:= 1 to 10 do

readln (a[i]);239

if a[i]>17 then;

writeln (a[i]);

end.

само задание:. Подсчитать количество элементов массива > 17. Массив из 10 элементов.

Answer 1

var

 a: array [1..10] of integer;  

 i, kol: integer;

begin

 kol := 0;

 for i := 1 to 10 do  

 begin

   readln(a[i]);

   if a[i] > 17 then kol += 1;  

 end;

 writeln(kol);

end.