fork download
copy 
  1. program progname;
  2. const
  3.   rows = 5;
  4.   cols = 5;
  5. type
  6.   TArr = array[1..rows, 1..cols] of Integer;
  7. var
  8.   arr: Tarr;
  9.   i, j, l, tmp: Integer;
  10.   isNeg: Boolean;
  11.  
  12. procedure swap(var a, b: Integer);
  13. var
  14.   tmp: Integer;
  15. begin
  16.   tmp:=a;
  17.   a:=b;
  18.   b:=tmp;
  19. end;
  20.  
  21. begin
  22.   randomize; //Çàïîëíåíèå ðàíäîìíî ìàòðèöû è åå âûâîä
  23.   writeln('Èñõîäíàÿ ìàòðèöà:');
  24.   for i:=1 to rows do
  25.   begin
  26.     for j:=1 to cols do
  27.     begin
  28.       arr[i, j]:=random(30) - 10;
  29.       write(arr[i, j]:4);
  30.     end;
  31.   writeln;
  32.   end;
  33.   writeln('Ïóíêò 1:');  //Ïóíêò 1
  34.   for i:=1 to rows do
  35.   begin
  36.     isNeg:=false;
  37.     for j:=1 to cols do
  38.       if arr[i, j] < 0 then
  39.         isNeg:=true;
  40.     if isNeg then
  41.     begin
  42.       writeln('Ñòðîêà ñ îòðèöàòåëüíûì ýëåìåíòîì! Èíäåêñ ', i);
  43.       break;
  44.     end;
  45.   end;
  46.   writeln('Ïóíêò 2');  //Ïóíêò 2
  47.   for i:=1 to rows - 1 do
  48.     for j:=i + 1 to cols do
  49.       if arr[i, j] < 0 then
  50.         arr[i, j] := abs(arr[i, j]);
  51.   for i:=1 to rows do
  52.   begin
  53.     for j:=1 to cols do
  54.       write(arr[i, j]:4);
  55.     writeln;
  56.   end;
  57.   writeln('Ïóíêò 3');  //Ïóíêò 3
  58.   for i:=2 to cols do
  59.   begin
  60.     tmp:=arr[rows, i];
  61.     j:=i - 1;
  62.     while (j > 0) and (tmp < arr[rows, j]) do
  63.     begin
  64.       arr[rows, j + 1]:=arr[rows, j];
  65.       for l:=1 to rows - 1 do
  66.           swap(arr[l, j + 1], arr[l, j]);
  67.       dec(j);
  68.     end;
  69.     arr[rows, j + 1]:=tmp;
  70.   end;
  71.   for i:=1 to rows do
  72.   begin
  73.     for j:=1 to cols do
  74.       write(arr[i, j]:4);
  75.     writeln;
  76.   end;
  77. end.
Success #stdin #stdout 0.01s 256KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Èñõîäíàÿ ìàòðèöà:
  11  15  10  -5  -1
   6 -10   1   4  -4
   6  -9  -1   5  13
  -2 -10  -9  18   0
  11 -10  13  19  15
Ïóíêò 1:
Ñòðîêà ñ îòðèöàòåëüíûì ýëåìåíòîì! Èíäåêñ 1
Ïóíêò 2
  11  15  10   5   1
   6 -10   1   4   4
   6  -9  -1   5  13
  -2 -10  -9  18   0
  11 -10  13  19  15
Ïóíêò 3
  15  11  10   1   5
 -10   6   1   4   4
  -9   6  -1  13   5
 -10  -2  -9   0  18
 -10  11  13  15  19
https://ideone.com/3zpTe
language:
Pascal (fpc 3.0.4)
created:
14 years 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!