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.