Question

1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число 100. 2) заполнить массив целыми положительными и отрицательными числами из интервала [-10; 10] и вывести его в строчку. поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку. ,, !

Answer 1

1)
var i:integer;a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(10)-10;
for i:=1 to 15 do write(' ',a[i]);
writeln(' ');
for i:=1 to 15 do if a[i] mod 2=0 then a[i]:=100;
for i:=1 to 15 do write(a[i],' ');
end.
2)
var i:integer;a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(10)-10;
for i:=1 to 15 do write(' ',a[i]);
writeln(' ');
for i:=1 to 15 do a[i]:=a[i]-2*a[i];
for i:=1 to 15 do write(a[i],' ');
end.