Найти ср.арифметическое элементов каждой из нечётных строк матрицы n-го порядка.

1

Ответы и объяснения

Лучший Ответ!
2012-04-11T21:17:36+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a:array[1..100,1..100] of integer;

i,j,s,n,k:integer;

Begin

  read(n);

  for i:= 1 to n do

    for j:= 1 to n do begin

      read(a[i,j]);

      if i mod 2=0 then begin

         k:=k+1;

         s:=s+a[i,j];

      end;

    end;

    writeln(s/k);

end.