заменить элементы массива на противоположные по знаку и вывести на экран массив заполнить случайными величинами от -50 до 100
Ответы
Ответ дал:
0
var i,n:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
begin
a[i]:=Random(150)-50;
write(a[i]:4,' ');
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*-1;
write(a[i]:4,' ');
end;
end.
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад