Question

Решить : в одномерном массиве из n чисел вывести на экран положительные элементы и сообщение об их количестве. cls rnd находим все положительные числа в одномерном массиве и выводим их количество input "количество элементов"; n dim a(n) for i = 1 to n input a(i) next i rem выбор положительных чисел k = 0 for i = 1 to n if a(i) > 0 then k = k + 1: print a(i) next i rem количество положительных чисел print k end в чем ошибка?

Answer 1

Var a:array[1..10]of integer;
i:byte;
k:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
a[i]:=-500+random(500);
for i:=1 to n do begin
if a[i]>0 then
writeln(a[i]);
k:=k+1;
end;
writeln('количество =',k);
end.