Найти среднее арифметическое каждой чётной строки матрицы

@Sinoptic · Регистрация: 14.06.2015

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

Найти среднее арифметическое каждой чётной строки матрицы
Заранее спасибо

@ermolay · 14.06.2015, 20:50

Pascal

const
  n = 4;
  m = 6;
 
var
  a: array[1..n, 1..m] of integer;
  i, j, sum: integer;
 
begin
  randomize;
  writeln('Matrix:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(100);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Average:');
  for i := 1 to n div 2 do
  begin
    sum := 0;
    for j := 1 to m do
      sum := sum + a[i, j];
    writeln('Average of ', i * 2, '-th row  = ', sum / m);
  end;  
  readln
end.

з.ы.: размерность матрицы взял из предыдущей задачи, можете изменить при желании...

@Sinoptic 0 / 0 / 0 Регистрация: 14.06.2015 Сообщений: 5
		1
	Найти среднее арифметическое каждой чётной строки матрицы 14.06.2015, 16:29. Показов 1513. Ответов 1 Метки нет (Все метки) Найти среднее арифметическое каждой чётной строки матрицы Заранее спасибо 0

	14.06.2015, 20:50

Найти среднее арифметическое каждой чётной строки матрицы

Решение