Даны два массива, заполненные каждый десятью случайными целыми числами, каждое которых от...

Question

Даны два массива, заполненные каждый десятью случайными целыми числами, каждое которых от 1 до 9 включительно.Сложите массивы поэлементно, результаты запишите в третий массив.На экан вывести все три массива
Решите пожалуйста

Answer 1

Сколько времени есть у тебя?

Comments

3 дня

---

program Arr;
var
Arr1, Arr2, Arr3: array[0..9] of integer;
I: integer;
procedure ShowArray (const Mess: string; Arr: array of integer);
var
I: integer;
begin
Writeln(Mess);
for I := 0 to 9 do
Write(Arr[I], ' ');
Writeln;
end;
begin
for I := 0 to 9 do
begin
Arr1[I] := 1 + Random(10);
Arr2[I] := 1 + Random(10);
Arr3[I] := Arr1[I] + Arr2[I];
end;
ShowArray('Первый массив:', Arr1);
ShowArray('Второй массив:', Arr2);
ShowArray('Третий Массив', Arr3);
Readln;
end.

---

program Arr;
{$APPTYPE CONSOLE}

uses
System.SysUtils;

var
Arr1, Arr2, Arr3: array[0..9] of integer;
I: integer;

procedure ShowArray (const Mess: string; Arr: array of integer);
var
I: integer;
begin
Writeln(Mess);
for I := 0 to 9 do
Write(Arr[I], ' ');
Writeln;
end;

begin
for I := 0 to 9 do
begin
Arr1[I] := 1 + Random(10);
Arr2[I] := 1 + Random(10);
Arr3[I] := Arr1[I] + Arr2[I];
end;

---

ShowArray('Первый массив:', Arr1);
ShowArray('Второй массив:', Arr2);
ShowArray('Третий Массив', Arr3);
Readln;
end.