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.