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.