Заменить отрицательные элементы, расположенные выше главной диагонали, средним геометрическим положительных - Pascal
Формулировка задачи:
Ребят, не могли бы помочь?
Есть задача:в матрице a(8,8) заменить отрицательные элементы расположенные выше главной диагонали, средним геометрическим положительных чисел.
(В общем, ребят не могли бы помочь, сам чет не допру никак, что нужно изменить или дописать вместо пропуска. А мне срочно эта задача нужна!!! Заранее спасибо огромное!)
Var i,j,k:integer; a:array[1..8,1..8]of integer; begin for i:=1 to 8 do begin for j:=1 to 8 do begin a[i,j]:=random(20); write (a[i,j]:4); end; writeln; end; for i:=1 to 8 do for j:=1 to 8 do writeln; end.
Решение задачи: «Заменить отрицательные элементы, расположенные выше главной диагонали, средним геометрическим положительных»
textual
Листинг программы
const N = 8; var ar: Array[1..N, 1..N] Of Real; i, j: 1..N; count: 0..N*N; avr: Real; begin Randomize; WriteLn('Original array:'); count := 0; avr := 0; for i := 1 to N do begin for j := 1 to N do begin ar[i, j] := Random * 198 - 99; Write(ar[i, j]:7:2); if (ar[i, j] > 0) then begin Inc(count); avr := avr + ar[i, j]; end; end; WriteLn; end; if (count > 0) then avr := avr / count; for i := 1 to N - 1 do for j := i + 1 to N do if (ar[i, j] < 0) then ar[i, j] := avr; WriteLn('Modified array:'); for i := 1 to N do begin for j := 1 to N do Write(ar[i, j]:7:2); WriteLn; end; end.
Объяснение кода листинга программы
N
- константа, значение которой равно 8ar
- массив размером 8x8 для хранения вещественных чиселi
- переменная для цикла от 1 до Nj
- переменная для цикла от 1 до Ncount
- переменная типа целое число от 0 до N*Navr
- переменная для хранения среднего арифметического положительных чисел Далее выполняются следующие действия:- Инициализация генератора случайных чисел
- Вывод сообщения
Original array:
- Обнуление переменных
count
иavr
- Цикл для заполнения массива числами и подсчета среднего арифметического положительных чисел
- Проверка, если количество положительных чисел в массиве больше 0, то вычисление среднего арифметического
- Цикл для замены отрицательных элементов, расположенных выше главной диагонали, на среднее арифметическое положительных чисел
- Вывод сообщения
Modified array:
- Цикл для вывода измененного массива Код генерирует массив случайных чисел, затем находит среднее арифметическое положительных чисел и заменяет отрицательные числа, расположенные выше главной диагонали, на это среднее значение. Наконец, выводит измененный массив.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д