Контрольная работа по теме "Информатика"

  For i:=1 to N do

    begin

     Writeln('Вводим ',i,'-ю строку:');

     For j:=1 to M do

      begin

       Write('Вводите очередной ',j,' -й элемент: ');

       ReadLn(B[i,j]);

      end;

    end;

  Writeln('Ввод окончен.');

  Writeln('Введен массив:');

  Print(B);

    For i:=1 to N do

    begin

      C[i]:=0;

      For j:=1 to M do

       begin

        C[i]:=C[i]+B[i,j]

       end;

      C[i]:=C[i]/M;

     end;

    Writeln('Печатаем массив С:');

    For i:=1 to N do  Write(C[i], ' ');

    Writeln;

    If C[1]>0 Then begin Minel(B,min); Writeln ('Min =', Min)  end

              Else begin Maxel(B,max); Writeln ('Max =', Max)  end;

End.