Матрица: среднее арифметичиское - Pascal
Формулировка задачи:
Добрый вечер помогите написать программку:
Hайти среднее аpифметическое положительных элементов каждого
столбца матpицы x(10х20) при условии, что в каждом столбце есть
хотя бы один положительный элемент.
Заранее спс за помощь
Решение задачи: «Матрица: среднее арифметичиское»
textual
Листинг программы
uses crt; const m=10; n=20; var a:array[1..m,1..n] of integer; i,j,k:integer; sr:real; begin clrscr; randomize; writeln('Массив А:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(10)-7; write(a[i,j]:3); end; writeln; end; writeln('Для продолжения нажмите Enter...'); readln; for j:=1 to n do begin k:=0; sr:=0; for i:=1 to m do begin if a[i,j]>0 then begin k:=k+1; sr:=sr+a[i,j]; end; end; if k>0 then writeln('В столбце ',j,' среднее положительных=',sr/k:0:2); end; readln end.
Объяснение кода листинга программы
- Объявлены переменные:
- a - массив размером m x n (10 x 20), инициализированный случайными значениями от -7 до 3 (включительно)
- i, j, k - индексы для обхода массива
- sr - переменная для хранения суммы положительных элементов в текущем столбце
- Выводится содержимое массива a в формате 3-значного числа (после вывода каждой строки массива)
- После вывода массива, пользователю предлагается нажать Enter для продолжения
- Для каждого столбца (j) вычисляется количество положительных элементов и их сумма
- Если количество положительных элементов больше 0, выводится среднее значение положительных элементов в формате 0-значного числа (j-й столбец, среднее положительных)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д