Задать два массива (одномерных), заполненные соучайными целыми числами, состоящие из 10 элементов. Затем вычислить элемент третьего массива, каждый из которых получается путём суммы соответствующих элементов первых двух массивов. Вывести новый массив.

Question

Информатика

Вадиша

10 августа, 12:31

Задать два массива (одномерных), заполненные соучайными целыми числами, состоящие из 10 элементов. Затем вычислить элемент третьего массива, каждый из которых получается путём суммы соответствующих элементов первых двух массивов. Вывести новый массив.

+5

Ответы (1)

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

Гуля · Answer 1

Var

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

i:integer;

begin

writeln ('m 1:') ;

for i:=1 to 10 do

read (a[i]) ;

writeln ('m 2:') ;

for i:=1 to 10 do

begin

read (b[i]) ;

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

end;

writeln ('m 3:') ;

for i:=1 to 10 do

write (c[i],' ') ;

end.