pascal abc помогите пожалуйста!!!

Question

pascal abc помогите пожалуйста!!!

Антон Солодкий Ученик (126), на голосовании 9 лет назад

№2. Составьте программу, которая формирует массив c[1..30] случайными целыми числами в диапазоне от -5 до 5,выводит на экран исходный массив и количество элементов больших 0.

Answer 1

var a:array[1..30] of integer;
i,x,n:integer;

begin
randomize;
for i:=1 to 30 do begin
a[i]:=random(11)-5; // рандом от 0 до 10, вычитая 5 получим диапазон от -5 до 5
if (a[i] > 0) then x:=x+1;
end;
for i:=1 to 30 do
write(a[i],' ');
writeln(' ',x); end.