Заменить элементы массива на противоположные по знаку и вывести на экран массив заполнить случайными величинами от - 50 до 100

Question

Информатика

Николайка

20 июня, 11:39

Заменить элементы массива на противоположные по знаку и вывести на экран массив заполнить случайными величинами от - 50 до 100

+4

Ответы (1)

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

Мишаня · Answer 1

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.