1. напишите программу для создания трех массивов каждый их 8 элементов a b и c
2.заполните массив а с клавиатуры
3. заполните массив в квадратами номеров соответствующих элементов
4.заполните массив с случайными числами
5.выведите эти три массива на экран расположив их элементы в строку

195

398

Посмотреть ответы 1

Ответы на вопрос:

natalyakulesch

Информатика

4,7(92 оценок)

Const m1 = 20; n1 = 20; 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. тестовое решение: введите через пробел число строк и столбцов массива: 4 6 строка 1: 5 -3 0 7 11 -4 строка 2: 14 -12 -7 13 11 18 строка 3: 3 11 8 -14 25 15 строка 4: 15 0 -17 21 0 -21 результирующий массив 5 -3 0 7 11 -4 14 -12 -7 13 11 18 3 11 8 -14 -21 15 15 0 -17 21 0 25 среднее арифметическое отрицательных элементов построчно: -3.5000 -9.5000 -17.5000 -17.0000