Сказали что у меня не все пояснения к , нужны пояснения к каждой строчке program kursz5; uses crt; //подключение модуля crt const n=10; const m=10; var //описание переменных i,j,max,min: integer; a: array[1..n,1..m] of integer; //ввод массива begin randomize; //подключение датчика случайных чисел for i: =1 to n do //ввод чисел для переменных массива for j: =1 to m do a[i,j]: =random(100); //ввод случайных чисел max: = a[1,1]; min: = a[1,1]; for i: =1 to n do begin for j: =1 to m do begin if a[i,j] > max then max: = a[i,j]; //вывод max элемента не правильно if a[i,j] < min then min: =a[i,j]; //вывод min элемента write(a[i,j]: 5); end; writeln; end; writeln(); writeln('max=',max,' min=',min); //вывод max и min значений end.

Program kursz5; //название программы uses crt; //подключение модуля crt const n=10; //определение неизменяемых переменных const m=10; var //описание переменных  i,j,max,min: integer; a: array[1..n,1..m] of integer; //(ввод)  объявление массива begin randomize; //подключение датчика случайных чисел for i: =1 to n do //ввод чисел для переменных массива  for j: =1 to m do a[i,j]: =random(100); //ввод случайных чисел max: = a[1,1]; //присвоение к max элементах [1,1] min: = a[1,1];   //присвоение к min элементах [1,1] for i: =1 to n do   //будем делать пока i < n begin for j: =1 to m do  //будем делать пока i < m begin if a[i,j] > max then   // если элемент массива больше max будем делать что ниже max: = a[i,j]; //(вывод max элемента не правильно) здесь происходит присвоение к переменной max, но никак не вывод if a[i,j] < min then   //если элемент массива меньше min будем делать следующее min: =a[i,j]; //(вывод min элемента) тоже самое, здесь присвоение к переменной min write(a[i,j]: 5);   - здесь уже вывод end; writeln;   end; writeln();   writeln('max=',max,' min=',min); //вывод max и min значений end.

Var m,a,b,h,s: real; begin writeln (a,b,h); readln (a,b,h); m: =(a+b)/2; s: =0.5*a*h; writeln (m); writeln (s); end.