Можете проверить,а если не правильно,то исправить ?var a:array [1..10] of integer;...

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.