Составить программу в PASCAL. Ввести размерность матрицы и значения ее элементов. Определить максимальный и минимальный элемент
Составить программу в PASCAL. Ввести размерность матрицы и значения ее элементов. Определить максимальный и минимальный элемент. Переставить их местами. Найти среднее арифметическое отрицательных элементов в i-ой строке.
var a: array[1..m1, 1..n1] of integer; b: array[1..m1] of real; i, j, m, n, max, min, t, imax, jmax, imin, jmin, s, kn: integer;
begin Write('Введите через пробел число строк и столбцов массива: '); Readln(m, n); max := -32768; min := 32767; for i := 1 to m do begin Write('Строка ', i, ': '); for j := 1 to n do begin Read(t); a[i, j] := t; if max < t then begin max := t; imax := i; jmax := j end else if min > t then begin min := t; imin := i; jmin := j end end end; a[imax, jmax] := min; a[imin, jmin] := max; Writeln('Результирующий массив'); for i := 1 to m do begin s := 0; kn := 0; for j := 1 to n do begin Write(a[i, j]:6); if a[i, j] < 0 then begin s := s + a[i, j]; Inc(kn) end end; Writeln; if kn > 0 then b[i] := s / kn else b[i] := 0 end; Writeln('Среднее арифметическое отрицательных элементов построчно:'); for i := 1 to m do Writeln(b[i]:10:4) end.