Даны два произвольные одномерные массивы целых чисел М1 и М2 с одинаковым количест
Даны два произвольные одномерные массивы целых чисел М1 и М2 с одинаковым количеством элементов. Сформировать массив М3, элементами которого являются числа, образующиеся по формуле M3 [i] = M1 [i] + M2 [i].(СИ )
Гость
Ответ(ы) на вопрос:
Гость Var m1,m2,m3:array of integer;
i,n:integer;
begin
write('Введите размер массивов');
readln(n);
setlength(m1,n);
setlength(m2,n);
setlength(m3,n);
//Заполнение массивов
for i:=0 to n-1 do begin
m1[i]:=random(21)-10;
m2[i]:=random(21)-10;
m3[i]:= m1[i]+m2[i];
end;
//Вывод массивов
for i:=0 to n-1 do write(m1[i]:4);
writeln;
for i:=0 to n-1 do write(m2[i]:4);
writeln;
for i:=0 to n-1 do write(m3[i]:4);
writeln;
end.
Тестовое решение:
Введите размер массивов 10
7 -10 9 -4 8 -6 10 4 6 2
10 -3 -2 -7 1 9 2 3 5 -6
17 -13 7 -11 9 3 12 7 11 -4
Не нашли ответ?
Похожие вопросы