Предмет: Информатика, автор: lu99

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

Ответы

Автор ответа: Alfurrer

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

lu99: 3 дня

Alfurrer: 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.

Alfurrer: 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;

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

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Окружающий мир, автор: Artem122004

Написать сообщение о животных кмв

1 год назад

Предмет: Английский язык, автор: Antoha1111111

Прошу помочь！35 баллов！Просклонять по временам глаголы : explain и hope.
Т. е Нужно написать по предложению в будущем, настоящем и прошедшем времени. (Вопрос, утверждение и отрицание).
(В настоящем времени использовать местоимения : You,He,She.

1 год назад

Предмет: Окружающий мир, автор: 20061603

я ищу окр мир сними можно ставить галочки