Question

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!
Сформировать массив из 10 целых чисел случайным образом из отрезка [-5;3]. Сформировать новый массив, состоящий из элементов, полученных сложением соответствующих элементов массивов.
ТОЛЬКО ПАСКАЛЬ

Answer 1

Ответ:

program z1;

const n =10;

var a,b,c:array[1..n]of integer;

i:integer;

begin

write('Массив A: ');  

for i:= 1 to n do  

begin

a[i]:= random(9)-5;

write(a[i]:3)

end;

writeln;

write('Массив B: ');  

for i:= 1 to n do  

begin

b[i]:= random(9)-5;

write(b[i]:3)

end;

writeln;

write('Массив C: ');  

for i:= 1 to n do  

begin

c[i]:=a[i]+b[i];

write(c[i]:3)

end;

end.