01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / RAB

Unit RAB;
interface
TYPE
mas=array[1..10] of real;
matr=array[1..10, 1..10] of integer;
function summa(x:mas;n:integer):real;
procedure minmax(Y:matr;n, m:integer;var ymin, ymax:integer);

IMPLEMENTATION
function summa;
var i:integer;
s:real;
begin
S:=0;
for i:=1 to n do S:=s+x[i];
Summa:=s;
end;

procedure minmax;
var i, j:integer;
Begin
Ymin:=Y[1, 1];
Ymax:=Y[1, 1];
For i:=1 to n do
for j:=1 to m do
begin
if y[i, j]<ymin then ymin:=y[i, j];
if y[i, j]>ymax then ymax:=y[i, j];
end;
End;
end.