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

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

Есть функция, которая считает сумму четырех чисел:

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

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

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;
  i, j: integer;

// функция по условиям задачи
function sum4(a, b, c, d: integer): integer;
begin
  result:= a + b + c + d;
end;

// обертка
function searchRes2(a1: ar): integer;        // сигнатура по условиям задачи
begin
  result := sum4(a1[1][1], a1[1][2], a1[2][1], a1[2][2]); // передаем элементы массива в ф-цию sum4, получаем резултат, передаем результат наружу
end;

begin                       // начало тела основной программы
  writeln ('Введите четыре числа: ');
  for i:=low(a1) to high(a1) do
    for j:=low(a1[i]) to high(a1[i]) do
      readln (a1[i][j]);
   writeln ('Ответ: ', searchRes2(a1)); // передаем массив в обертку, выводим на экран полученный результат              
  readln();
end.

Вывод в консоли:

Введите четыре числа: 
2
12
1
0
Ответ: 15