Можете проверить,а если не правильно,то исправить ? 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 элементов.
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.