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

@Incognito0202 · Регистрация: 19.01.2021

Нужна помощь.

Найти среднее арифметическое всех положительных элементов главной диагонали матрицы AA{n, n}. (n=5 )

@Cyborg Drone · 19.01.2021, 20:45

Pascal

const
  n = 5;
var
  aa: array[1..n, 1..n] of integer;
  i, j, k: integer;
  sa: real;
begin
  k := 0;
  sa := 0;
  randomize;
  writeln('Матрица AA:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          aa[i,j] := -99 + random(199);
          write(aa[i,j]:4);
          if (i = j) and (aa[i,j] > 0) then
            begin
              inc(k);
              sa := sa + aa[i,j]
            end
        end;
      writeln
    end;
  if k > 0 then writeln('Среднее арифметическое положительных элементов главной диагонали = ', sa/k:0:5)
  else writeln('На главной диагонали ет положительных элементов');
  readln
end.

@Incognito0202 1 / 1 / 0 Регистрация: 19.01.2021 Сообщений: 11
		1
	Найти среднее арифметическое положительных элементов главной диагонали матрицы 19.01.2021, 20:11. Просмотров 1331. Ответов 1 Метки нет (Все метки) Нужна помощь. Найти среднее арифметическое всех положительных элементов главной диагонали матрицы AA{n, n}. (n=5 ) 0

Опции темы

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

Решение