Составить программу которая заполняет массив из 10 элементов случайными целыми числами из положительные, отрицательные и нулевые числа и выводит на экран.

Question

Информатика

Агафоклия

20 мая, 05:03

Составить программу которая заполняет массив из 10 элементов случайными целыми числами из положительные, отрицательные и нулевые числа и выводит на экран.

+2

Ответы (1)

Знаете ответ?

Радмила · Answer 1

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

b, i:integer;

z:real;

begin

randomize;

for i:=1 to 10 do

begin

z:=random;

b:=random (10) ;

if z>0.5 then a[i]:=b

else a[i]:=-b;

end;

for i:=1 to 10 do

write (' ', a[i]) ;

end.

если что то не понятно, спрашивай)