Составить программу которая заполняет массив из 10 элементов случайными целыми числами из положительные, отрицательные и нулевые числа и выводит на экран.
Ответы
Ответ дал:
0
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.
если что то не понятно,спрашивай)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад