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

program z2;
USES rab;
var A:mas;
    B:matr;
    i, j:integer;
    Bmin, Bmax:integer;
    S:real;
    m, n:integer;

BEGIN
    writeln('ўўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ бЁў ');
    readln(n);
    writeln('ўўҐ¤ЁвҐ ¬ бЁў');
    for i:=1 to n do read(A[i]);
    S:=Summa(A, n);
    writeln('б㬬 =', s:6:1);
    readln;
     writeln('ўўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжл');
    readln(n, m);
    writeln('ўўҐ¤ЁвҐ ¬ ваЁжг');
    for i:=1 to n do
    for j:=1 to m do
    read(B[i, j]);
    minmax(B, n, m, Bmin, Bmax);
    writeln('Bmin=', bmin);
     writeln('Bmax=', bmax);
     readln;
     end.