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

3 дня

program Arr;varArr1, Arr2, Arr3: array[0..9] of integer;I: integer;procedure ShowArray (const Mess: string; Arr: array of integer);varI: integer;beginWriteln(Mess);for I := 0 to 9 doWrite(Arr[I], ' ');Writeln;end;beginfor I := 0 to 9 dobeginArr1[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.

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