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.