KURSYAK

program kursyak21;
uses CRT;
const SIZE=15;
var M,N,i,j: integer;
    temp:integer;
    mas:array[1..SIZE,1..SIZE] of integer;
    a:array[1..SIZE] of integer;
    fout:text;
    fin:text;




function getValue (min:integer; max:integer): integer; {begin of function}
var n:integer;
begin
read (n);
while ( (n<min) or (n>max) )
   do begin
   writeln ('Out of range');
   read(n);
   end;
getValue:=n;
end;

procedure printBigArray;
begin
for i:=1 to M do
    begin
    for j:= 1 to N do
        begin
        write (fout,mas[i,j]:5);
        write (mas[i,j]:5);
        end;
    writeln(fout,'');
    writeln;
    end;
end; {end of function}

procedure printSmallArray;  {begin of function}
var j,p1,p2,sum:integer;
    mul:real;
begin

for j:=1 to N do
    begin
    write(a[j]:5); {}
    write(fout,a[j]:5); {}
    end;
writeln;
writeln(fout,'');
p1:=0;
p2:=0;
for j:=1 to N do
    begin
    if a[j]=0 then
       if p1=0 then
          begin
          p1:=(j+1);
          end
       else
           if j=p1 then p1:=(j+1)
           else
               if p2=0 then
               p2:=j-1;
    end;

if (p1=0) or (p2=0) then begin
   writeln('V massive net dvuh nulevyh znachenyi mezhdu kotorimi est elementi');
   writeln(fout,'V massive net dvuh nulevyh znachenyi mezhdu kotorimi est elementi');
   end
else
    begin
    sum:=0;
    mul:=1.0;
    for j:=p1 to p2 do
        begin
        sum:=sum+a[j];
        mul:=mul*a[j];
        end;
    write('Summa:',sum,'   ');
    writeln('Mul:',mul:1:0);
    write(fout,'Summa:',sum,'   ');
    writeln(fout,'Mul:',mul:1:0);
    end;

end; {end of function}

begin  {MAIN BEGIN}

writeln ('Vvedite kol-vo strok v massive (1-',SIZE,')');
M:= getValue(1,SIZE);
writeln ('Vvedite kol-vo stolbcov v massive (1-',SIZE,')');
N:= getValue(1,SIZE);

{Filling and printing array }
writeln ('Kak zapolnit massiv? 1-random, 2-manual, 3-from file');
read (temp);
while (temp<1) or (temp>3) do begin
      writeln ('out of range');
      read(temp);
      end;

case temp of
1:
  begin
  writeln ('Vvedite max znachenie elementa');
  read (temp);

  for i:=1 to M do
    for j:= 1 to N do
        mas[i,j]:=random(temp);
    end;

2:    {manual fill}
  begin
  for i:=1 to M   do
    begin
    writeln ('Vvedite elementi stroki #',i);
    for j:=1 to N do
        read(mas[i,j]);
    end;
  end;
3:    {fill from fill}
  begin
  assign (fin,'IN.TXT');
  reset(fin);
  for i:=1 to M   do
    for j:=1 to N do
        read(fin,mas[i,j]);

  end;

end;

assign(fout,'out.txt');
rewrite(fout);
writeln;
writeln ('Ishodnyi massiv:');
writeln (fout,'Ishodnyi massiv:');
printBigArray;
{-----------------------------------}

{Transformation and print on screen}
for j:=1 to N do
    begin
    temp:=mas[1,j];
    for i:=2 to M do
        if (temp>mas[i,j])
           then temp:=mas[i,j];
    for i:=1 to M do
        mas[i,j]:=mas[i,j]*temp;
    end;

writeln;
writeln(fout,'');
writeln ('Preobrazovannyi massiv:');
writeln (fout,'Preobrazovannyi massiv:');
printBigArray;
writeln;
writeln(fout,'');
{------------------------------------}

{Creating and printing new arrays}
if M<4 then begin
   writeln ('Array has only ',M,' string(s)');
   writeln (fout,'Array has only ',M,' string(s)');
   end
else M:=4;
for i:=1 to M do
    begin
    for j:=1 to N do
        a[j]:=mas[i,j];
    write('string ',i,': ');
    write(fout,'string ',i,': ');
    printSmallArray;
    writeln;
    writeln(fout,'');
    end;
{--------------------------------------}
close(fout);
end.