Задать случайный массив на интервале [-2; 8]. Найти количество положительных чисел. Нужна программа на PascalABC

Question

Информатика

Вивея

27 марта, 23:20

Задать случайный массив на интервале [-2; 8]. Найти количество положительных чисел. Нужна программа на PascalABC

+2

Ответы (1)

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

Тала · Answer 1

const nn=10;

var

A: array [1 ... nn] of integer;

i, k:integer;

begin

Randomize;

k:=0;

for i: = 1 to nn do

begin

A[i]:=random (10) - 2;

write (A[i],' ') ;

end;

for i: = 1 to nn do if (A[i]>0) then k:=k+1;

writeln;

writeln (k) ;

end.