Var n,a,i,k:integer; begin k:=0; writeln('введите кол-во чисел'); readln(n); writeln('Вводите числа'); for i:=1 to n do begin read(a); if a>5 then k:=k+1; end; writeln('чисел больше 5: ',k); end.
Пример введите кол-во чисел 5 Вводите числа 5 7 9 3 1 чисел больше 5:2
n,a,i,k:integer;
begin
k:=0;
writeln('введите кол-во чисел');
readln(n);
writeln('Вводите числа');
for i:=1 to n do
begin
read(a);
if a>5 then
k:=k+1;
end;
writeln('чисел больше 5: ',k);
end.
Пример
введите кол-во чисел
5
Вводите числа
5 7 9 3 1
чисел больше 5:2