Задача 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;
type myArr1 = array[1..2, 1..2] of integer; function get4num(): myArr1; var i, i2: integer; a: myArr1; begin for i:=low(a) to high(a) do for i2:=low(a[i2]) to high(a[i2]) do readln(a[i][i2]); result := a; end; procedure sum(a: myArr1); var c:integer; begin c:= a[1, 1]+a[1, 2]+ a[2, 1]+ a[2, 2]; writeln('sum =',' ',c); end; begin writeln('enter 4 numbers to add up'); sum(get4num()); readln(); end.
Вывод консоли:
enter 4 numbers to add up 5 5 5 5 sum = 20
- Log in to post comments
- 77 reads