Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / TMP / MODUL2
.PAS 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.
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.