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