fork download
copy 
  1. program lb4;
  2. uses crt;
  3.  
  4. const A: array[1..3, 1..4] of integer = ((3, 5, 7, 9),
  5.                                      (1, 4, 6, -2),
  6.                                      (2, -1, 2, 1));
  7.  
  8. var
  9.   min, max,max1,min1,k, i, j, t: integer;
  10.   b: array[1..8] of integer;
  11.   begin
  12.  
  13. clrscr;
  14. for i := 1 to 3 do
  15. begin
  16. for j := 1 to 4 do
  17. write(a[i, j]:4);
  18. writeln;
  19. end;
  20.  
  21. max := a[1, 1];
  22. min := a[1, 1];
  23. for i := 1 to 3 do
  24. begin
  25. for j := 1 to 4 do
  26. begin
  27. if a[i, j] > max then max := a[i, j];
  28. if a[i, j] < min then min := a[i, j];
  29. end;
  30. end;
  31. writeln;
  32. writeln('max = ', max, '  min = ', min);
  33. writeln;
  34.  
  35. writeln('Vybrana matryca: ');
  36.  
  37. k:=1;
  38. i:=1;
  39. while i<4 do
  40. begin
  41. for j:=1 to 4 do
  42. begin
  43. b[k]:=a[i,j];
  44. inc(k);
  45. end;
  46. i:=i+2;
  47. end;
  48. writeln;
  49.  
  50.  
  51. for i:=1 to 8 do
  52. write(b[i]:4);
  53. writeln; writeln;
  54.  
  55. writeln('Vporadkovanyj masyv: ');  
  56.  
  57. for i := 1  to 8 do begin
  58. for k := 1  to 7 do begin
  59. if b[k] < b[k + 1] then begin
  60. t:= b[k];
  61. b[k] := b[k + 1];
  62. b[k + 1] := t; 
  63. end; end; end;writeln;
  64.  
  65. for i:=1 to 8 do begin
  66. write(b[i]:4);
  67. if b[i] > max1 then max1 := b[i];
  68. if b[i]< min1 then min1 := b[i];
  69. end;
  70. writeln;writeln;
  71. writeln('max = ', max1, '  min = ', min1);
  72. writeln;
  73. readln;
  74. end.
  75.  
Success #stdin #stdout 0s 320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   3   5   7   9
   1   4   6  -2
   2  -1   2   1

max = 9  min = -2

Vybrana matryca: 

   3   5   7   9   2  -1   2   1

Vporadkovanyj masyv: 

   9   7   5   3   2   2   1  -1

max = 9  min = -1
https://ideone.com/14vv0i
language:
Pascal (fpc 3.0.4)
created:
8 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!