Написать программу, в которой пользователь вводит несколько чисел, программа выводит количество положительных чисел.

Question

Информатика

Авдий

25 апреля, 05:33

Написать программу, в которой пользователь вводит несколько чисел, программа выводит количество положительных чисел.

+3

Ответы (1)

Знаете ответ на вопрос?

Лавиния · Answer 1

Uses crt;

const n:=5

var a:array[1 ... n] of integer;

i: integer;

begin clrscr; randomize;

for i:=1 to n do begin

a[i]:=random (100) - 50;

if a[i]>0 then

writeln (a[i]) ;

end;

readkey;

end.

проверь программу, скорее всего будет так