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

Question

Информатика

Евмен

10 марта, 17:56

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

+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.

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