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

Program pro3;
Uses CRT;
type
mas_real=array[1..20,1..20] of real;
mas_integer=array[1..20,1..20] of integer;
var
i,j,k,n,m,c:integer;
d:mas_real;
d1:mas_integer;
ar:array[1..20] of real;
a1:array[1..20] of integer;
max:real;
max1:integer;


Procedure kruto(var mas;c,n,m:integer);
var
min0:integer;
min1:real;
a0:array[1..20] of integer;
a1:array[1..20] of real;
begin
if c=0 then
begin
For i:=1 to n Do a0[i]:=1;
For i:=1 to n Do
For j:=1 to m Do begin
a0[i]:=a0[i]*mas_integer(mas)[i,j]
end;min0:=a0[1];
For i:=1 to n Do
if min0>a0[i] then min0:=a0[i];
Writeln('ЊЁ­Ё¬ «м­®Ґ Їа®Ё§ўҐ¤Ґ­ЁҐ бва®Є 楫®зЁб«Ґ­­®© ¬ ваЁжл =',min0);
end
else
begin
For i:=1 to n Do a1[i]:=1;
For i:=1 to n Do
For j:=1 to m Do begin
a1[i]:=a1[i]*mas_real(mas)[i,j]
end;min1:=a1[1];
For i:=1 to n Do
if min1>a1[i] then min1:=a1[i];
Writeln('ЊЁ­Ё¬ «м­®Ґ Їа®Ё§ўҐ¤Ґ­ЁҐ бва®Є ўҐйҐб⢥­­®© ¬ ваЁжл =',min1:5:2);
end;
end;

Procedure Kruto1;
begin
For i:=1 to n Do
For j:=1 to m Do
if round(d[i,j])-d[i,j]<>0 then begin
c:=1; exit; end else c:=0;
end;



begin
ClrScr;
Writeln;k:=1;
Write('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжл ');
Readln(n,m);
Writeln('‚ўҐ¤ЁвҐ н«Ґ¬ҐҐ­вл ў ¬ ббЁў:');
For i:=1 to n Do begin
For j:=1 to m Do begin
GotoXY(k,i+3);
Readln(d[i,j]);
k:=k+10;
end;
k:=1;
end;
Kruto1;
if c=1 then Writeln('‚ ¬ ббЁўҐ ®Ў­ а㦥­­л ўҐй. зЁб« ')
else Writeln('‚ ¬ ббЁўҐ ­Ґ ®Ў­ а㦥­­л ўҐй. зЁб« ');
If c=0 then
For i:=1 to n Do
For j:=1 to m Do
d1[i,j]:=round(d[i,j]);
if c=1 then Kruto(d,c,n,m)
else Kruto(d1,c,n,m);
Readln;
end.