Даны алгоритмы и из них нужно сделать работающую программу на паскале. . 50 ​

  я люблю уроки информатики. это мой любимый урок. там всегда весело и интересно. каждый раз я узнаю что-то новое. каждый урок не похож на другой, в школе такое бывает редко. мне нравится работать на компьютере.

на самых первых уроках мы изучали paint-рисовали разные плакаты и рисунки, дальше уже сложнее: создавали таблицы с разными цифрами, буквами и рисунками. еще мне нравится интерактивная доска. на ней мы рисуем и выполняем специальным карандашом с батарейками. на большом экране мы видим монитор учителя, и   всему классу наглядно понятно,   что и как делать.

еще на уроках информатики   мы учимся находить в интернете нужную информацию и смотрим разные города со спутника. это интересно. сразу создается впечатление, что ты побывала в новом месте и увидела много нового.

у нас хороший учитель. она всё объясняет и показывает.  

Const   nn=20; var   i,j,a,b,m,x,la,lb,p,ij,mn: integer;   s: string;   d: array[1..nn,1..nn] of integer; begin   {инициализация и вывод массива}   write('число строк и столбцов в массиве: ');   read(m,x);   write('диапазон значений элементов массива: ');   read(a,b);   str(a,s);   la: =length(s);   str(b,s);   lb: =length(s);   if la> lb then p: =la+1 else p: =lb+1;   randomize;   writeln('исходный массив');   for i: =1 to m do begin       for j: =1 to x do begin           d[i,j]: =random(b-a+1)+a;           write(d[i,j]: p)           end;       writeln       end;   {нахождение минимума}   if i> j then ij: =j else ij: =i;   mn: =d[1,1];   for i: =1 to ij do       for j: =1 to x-i do           if d[i,j]< mn then mn: =d[i,j];   writeln('минимальный элемент выше побочной диагонали равен ',mn) end. пример работы число строк и столбцов в массиве: 5 8 диапазон значений элементов массива: -50 50 исходный массив   -10 -18 -42 -33    6  15 -29  16   -5 -22    7 -49 -43 -44 -42  22   36 -29  19 -26 -14 -49 -39    2     2  35 -16  44  13  26 -12 -40   -50  10 -42 -13  29 -22 -48  34 минимальный элемент выше побочной диагонали равен -50