Среднее арифметическое положительных элементов матрицы

@DooMp · Регистрация: 17.11.2014

Author24 — интернет-сервис помощи студентам

Составить программу вычисляющую среднее арифметическое положительных элементов матрицы C Матрица C задана и содержит M строк и N столбцов целых чисел.

@Cyborg Drone · 17.11.2014, 19:13

Pascal

const m = 8; n = 10;
var a: array [1..n, 1..m] of integer;
    i, j, k: integer;
    s: real;
begin
  randomize;
  s := 0;
  k := 0;
  writeln('Source matrix:');
  for j := 1 to m do
    begin
      for i := 1 to n do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4);
          if a[i, j] > 0
            then begin
              inc(k);
              s := s + a[i, j]
            end
        end;
      writeln
    end;
  if k = 0
    then writeln('Positive elements not found.')
    else writeln('Average of positive elements = ', s / k:0:15);
  readln
end.

@DooMp 0 / 0 / 0 Регистрация: 17.11.2014 Сообщений: 6
		1
	Среднее арифметическое положительных элементов матрицы 17.11.2014, 15:31. Показов 1086. Ответов 1 Метки нет (Все метки) Составить программу вычисляющую среднее арифметическое положительных элементов матрицы C Матрица C задана и содержит M строк и N столбцов целых чисел. 0

	17.11.2014, 19:13

Среднее арифметическое положительных элементов матрицы

Решение