Дана матрица размером 6x9. найти среднее арифметическое наибольшего и наименьшегозначений ее элементов. turbo pascal

Const   n = 6;   m = 9; var   mas: array[1..n,1..m] of integer;   max,min,j,i: integer; begin   max: =-maxint;   min: =maxint;   for i: =1 to n do   for j: =1 to m do   begin     if max< mas[i,j] then     max: =mas[i,j];     if min> mas[i,j] then     min: =mas[i,j];   end;   writeln((max+min)/2); end.

// pascalabc.net procedure rectanglesquare; var   a,b: double; begin   write('введите через пробел длины сторон прямоугольника: '); read(a,b);   writeln('площадь прямоугоьника равна ',a*b) end; var   i: byte; begin   for i: =1 to 3 do rectanglesquare end. тестовое решение: введите через пробел длины сторон прямоугольника: 3 7 площадь прямоугоьника равна 21 введите через пробел длины сторон прямоугольника: 12.4 15.8 площадь прямоугоьника равна 195.92 введите через пробел длины сторон прямоугольника: 14 12.5 площадь прямоугоьника равна 175

Способ с циклами: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифм. прогресии: '); readln(n); for i: =1 to n do a: =a+d; writeln(n, ' член арифметической прогресии равен : ', a); end. способ без циклов: program test ; var d, a, : real; n, i: integer; begin write ('введите a1: '); readln(a) ; write(' введите шаг арифм. прогресии: '); readln(d); write('введите номер члена арифметической прогресии: '); readln(n); writeln(' ответ: ', a+d*(n-1)); end.