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.