Составьте программу для определения наименьшего из 2-х целых чисел.

Var a,b: integer; beginwriteln('введите 1 число'); readln(a); writeln('введите 2 число'); readln(b); if a> =b then writeln('наименьшее число равняется ',b) else writeln('наименьшее число равняется ',a); end.

const M = 10;

const N = 5;

var A: array [1..M,1..N] of integer;

var i,j,cnt: integer;

begin

// Задаем элементы матрицы и вывдим ее на экран

randomize();

For i:= 1 to M do

begin

 For j:= 1 to N do

 begin

 A[i,j]:=random(101)-35;

 write(A[i,j]:4);

 end;

 writeln();

end;

// Считаем кол-во отрицательных элементов

For i:= 1 to M do

begin

 cnt:=0;

 For j:= 1 to N do

 begin

 if (A[i,j]<0) then cnt:=cnt+1;

 end;

  writeln('Кол-во отрицательных элементов в строке ',i,' : ',cnt);

end;

end.

// pascalabc.net 3.3, сборка 1576 от 16.11.2017 // внимание! если программа не работает, обновите версию! begin var v: =matrrandom(7,7,-15,15); v.println; var com: = v.row(2).aggregate(biginteger(,y)-> (x*y)); writeln('произведение эл-в 3ей строки = ', com); var cnt : = 0; foreach var x in v.row(2) do   if x > com then inc(cnt); writeln('количество элементов, больших чем это произведение = ', cnt); writeln('максимальный элемент 3го столбца = ', v.col(2).max); end. пример:       2  -4 -15  10  -1    2    6   15  -8  11    5  14  10  15     0  15 -10  13  -8 -13  14   14    6  13 -10    9    6 -12   -14    1    8  -9    1 -12  12   15    9  10  -7 -14    6  -3     9    9  -1 -14    1    1    3 произведение эл-в 3ей строки  = 0 количество элементов, больших чем это произведение = 3 максимальный элемент 3го столбца = 13 *****правил*****