Дана матрица целых чисел размером 5х3. определить максимальный и мини-мальный элемент матрицы. результат вывести на экран монитора.

program c;

var

a: array[1..5,1..3] of integer;

i,j,x,max,min: integer;

begin

max: =0;

min: =70000;

for i: =1 to 5 do

for j: =1 to 3 do

readln(a[i,j]);

for i: =1 to 5 do 

for j: =1 to 3 do begin

if a[i,j]> max then max: =a[i,j];

if a[i,j]< min then min: =a[i,j];

end;

writeln(max,'   ',min);

end.

 

1.   var a, k, l, m: integer; begin s: = 0; writeln ('введите число'); readln(a); if (a> =10) and (a< =999) then k: =a div 100; l: = k div 10; m: = a mod 10; s: = k+m+l; writeln ('сумма цифр в числе равна  ',  s); end. 2. var i, a, s: integer; begin  s: =0; for i: = 1 to 3 do begin writeln ('введите число №', i); readln(a); if (a> 5) and (a mod 5 = 0) then  inc(s); end; writeln('количество четных чисел, которые делятся на 5 -  ', s); end. 3 var a, b, c, d, max, med, min: integer; begin writeln ('введите число'); readln(a); b: = a div 100; c: = b div 10; d: = a mod 10; if (b< c) and (b< d) then min: = b; if (c< b) and (c< d) then min: = c; if (d< c) and (d< b) then min: = d; if (b> c) and (b> d) then max: = b; if (c> b) and (c> d) then max: = c; if (d> c) and (d> b) then max: = d; if (b> c) and (b< d) or  (b< c) and (b> d)  then med: = b; if (c> b) and (c< d) or  (c< b) and (c> d)  then med: = c; if (d> c) and (d< b) or  (d< c) and (d> b)  then med: = d; writeln(min, med, max); end.

Const n=3; var    a: array[1..n] of integer;       i, j, k: integer;   begin      randomize;         write ('исходный массив: ');       for i : = 1 to n do begin          a[i] : = random(256);           write (a[i]: 4);     end;       writeln; writeln;           for i : = 1 to n-1 do          for j : = 1 to n-i do              if a[j] > a[j+1] then begin                  k : = a[j];                   a[j] : = a[j+1];                   a[j+1] : = k              end;         write ('массив по возрастанию: ');       for i : = 1 to n do          write(а[i]: 4);         writeln;   readln; end.