fork download
copy 
  1. program KR;
  2.  
  3. type
  4.   mas=array [1..10,1..10] of integer;
  5. procedure vvod(var n,T:integer;var C:mas);
  6. var i,j: Integer;
  7. begin
  8.   i:=1;j:=1;
  9.   writeln('Введите размерность матрицы С(n): ');
  10.   readln(n);
  11.   writeln('Введите номер столбца: ');
  12.   readln(T);
  13.   Writeln('ведите элементы матрицы: ');
  14.   for i:=1 to n do
  15.     for j:=1 to n do
  16.       readln(C[i][j]);
  17. end;
  18. procedure vuvod(var n,T:integer;var C:mas);
  19. var i,j:integer;
  20. begin
  21.   Writeln('Размерность матрицы С: ', n);
  22.   writeln('Номер проверяемого столбца: ');
  23.   writeln('Элементы матрицы C: ');
  24.   for i:=1 to n do
  25.     begin
  26.     for j:=1 to n do
  27.       write(C[i][j]);
  28.     writeln();
  29.     end;
  30. end;
  31. function StolbT(var N,T: integer; var C:mas):boolean;
  32. var i:integer;
  33. begin
  34.   StolbT:=true;
  35.   for i:=1 to n do
  36.     if C[i][T]<0 then StolbT:=false;
  37. end;
  38. function maximum(var N:integer; var C:mas):integer;
  39. var i,j,max:integer;
  40. begin
  41.   max:=C[2][1];
  42.   for i:=3 to n do
  43.     for j:=1 to (i-1) do
  44.       if C[i][j]>max then max:=C[i][j];
  45.   maximum:=max;  
  46. end;
  47. function minimum(var N:integer; var C:mas):integer;
  48. var i,j,min:integer;
  49. begin
  50.   min:=C[1][2];
  51.   for  i:=1 to n do
  52.     for  j:=(i+1) to n do
  53.       if C[i][j] < min then min:= C[i][j];
  54.   minimum:=min;
  55. end;
  56. var
  57.   n,T,min,max:integer;
  58.   C:mas;
  59.   uslovie:boolean;
  60. begin
  61.   vvod(n,T,C);
  62.   vuvod(n,T,C);
  63.   uslovie:= StolbT(n,T,C);
  64.   if uslovie = false then writeln('Не все положительные')
  65.   else 
  66.   begin
  67.     max:= maximum(n,C);min:=minimum(n,C);
  68.     writeln('Максимальное значение: ',max,' Минимальное значение: ',min);
  69.   end;
  70. end.
Success #stdin #stdout 0s 5308KB
comments (?)
stdin
copy 
3
2
1
7
4
2
3
5
6
8
9
stdout
copy 
Введите размерность матрицы С(n): 
Введите номер столбца: 
ведите элементы матрицы: 
Размерность матрицы С: 3
Номер проверяемого столбца: 
Элементы матрицы C: 
174
235
689
Максимальное значение: 8 Минимальное значение: 4
https://ideone.com/Ydyl82
language:
Pascal (fpc 3.0.4)
created:
9 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!