uWFJl4 - Online Pascal Compiler & Debugging Tool


program KR;
type
  mas=array [1..10,1..10] of integer;
procedure vvod(var n,T:integer;var C:mas);
var i,j: Integer;
begin
  i:=1;j:=1;
  writeln('Введите размерность матрицы С(n): ');
  readln(n);
  writeln('Введите номер столбца: ');
  readln(T);
  Writeln('ведите элементы матрицы: ');
  for i:=1 to n do
    for j:=1 to n do
      readln(C[i][j]);
end;
procedure vuvod(var n,T:integer;var C:mas);
var i,j:integer;
begin
  Writeln('Размерность матрицы С: ', n);
  writeln('Номер проверяемого столбца: ');
  writeln('Элементы матрицы C: ');
  for i:=1 to n do
    begin
    for j:=1 to n do
      write(C[i][j]);
    writeln();
    end;
end;
function StolbT(var N,T: integer; var C:mas):boolean;
var i:integer;
begin
  StolbT:=true;
  for i:=1 to n do
    if C[i][T]<0 then StolbT:=false;
end;
function maximum(var N:integer; var C:mas):integer;
var i,j,max:integer;
begin
  max:=C[2][1];
  for i:=3 to n do
    for j:=1 to (i-1) do
      if C[i][j]>max then max:=C[i][j];
  maximum:=max;
end;
function minimum(var N:integer; var C:mas):integer;
var i,j,min:integer;
begin
  min:=C[1][2];
  for  i:=1 to n do
    for  j:=(i+1) to n do
      if C[i][j] < min then min:= C[i][j];
  minimum:=min;
end;
var
  n,T,min,max:integer;
  C:mas;
  uslovie:boolean;
begin
  vvod(n,T,C);
  vuvod(n,T,C);
  uslovie:= StolbT(n,T,C);
  if uslovie = false then writeln('Не все положительные')
  else
  begin
    max:= maximum(n,C);min:=minimum(n,C);
    writeln('Максимальное значение: ',max,' Минимальное значение: ',min);
  end;
end.