Задача 3. Заданы два одномерных массива (задать явно внутри программы)

1. Постановка задачи.

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

2. Математическая модель.

n[i]=a[i]+b[i]

3. Блок-схема.

4. Список идентификаторов.

Имя	Смысл	Тип
n	Новый массив a[i] + b[i]	Integer
i	Счетчик	Integer

5. Код программы.

program z3;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes;

const a:array [1..5] of integer = (9,2,5,7,1);

b:array [1..5] of integer = (8,4,2,2,6);

var i:integer;

n:array [1..5] of integer;

begin

for i:= 1 to 5 do

begin

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

writeln (a[i],'+',b[i],' = ', n[i]);

end;

readln;

end.

6. Результаты выполнения программы.