Задача 3 Урок 16

Задача 3 Урок 16

Есть функция, которая считает сумму четырех чисел:
▶
?
1
2
3
4

function sum4(a, b, c, d: integer): integer;
begin
result := a + b + c + d;
end;

Реализуйте обертку над sum4(), которая делает то же самое, но имеет сигнатуру вида:
▶
?
1
2
3

type ar = array[1..2, 1..2] of integer;

function searchRes2(a1:ar): integer;

type ar = array[1..2, 1..2] of integer;
var a1: ar;
function sum4(a, b, c, d: integer): integer;
begin
  result := a + b + c + d;
end;

function searchRes2(a:ar): integer;
begin
  result:=sum4(a[1][1],a[1][2],a[2][1],a[2][2]);
end;

begin
  a1[1][1]:=2;
  a1[1][2]:=1;
  a1[2][1]:=7;
  a1[2][2]:=3;
  write(searchRes2(a1));
  readln();
end.