Задача 3 Урок 16
Primary tabs
Есть функция, которая считает сумму четырех чисел:
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;
program u16z3; type ar = array[1..2, 1..2] of integer; var a,b,c,d,i,j: integer; a1: ar; 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]); end; begin writeln ('Vvedite 4 chisla'); 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.
- Log in to post comments
- 432 reads