Найти в двумерном массиве среднее арифметическое элементов, стоящих на четных местах

@typak · Регистрация: 20.06.2012

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

Найти в данном двумерном массиве размера m*n среднее арифметическое элементов, стоящих на четных местах.

@Das Gespenst · 28.06.2012, 01:57

Pascal

program z;
uses crt;
const n=10; m=10;
var i,j,k:byte; s:integer;
a:array [1..n,1..m] of integer;
begin
     clrscr;
     writeln('Ñëó÷àéíàÿ ìàòðèöà');
     for i:=1 to n do
         begin
              for j:=1 to m do
                  begin
                       a[i,j]:=random(40)-20;
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
     k:=0; s:=0;
     for i:=1 to n do
         for j:=1 to m do
             if (odd(i)=false) and (odd(j)=false)
                then
                    begin
                         s:=s+a[i,j];
                         k:=k+1;
                    end;
     writeln('Ñðåäíåå àðèôìåòè÷åñêîå ýëåìåíòîâ, ñòîÿùèõ íà ÷åòíûõ ìåñòàõ: ',s/k);
     readln;
end.

@typak 0 / 0 / 0 Регистрация: 20.06.2012 Сообщений: 57
		1
	Найти в двумерном массиве среднее арифметическое элементов, стоящих на четных местах 27.06.2012, 17:25. Показов 2494. Ответов 1 Метки нет (Все метки) Найти в данном двумерном массиве размера m*n среднее арифметическое элементов, стоящих на четных местах. 0

	28.06.2012, 01:57

Найти в двумерном массиве среднее арифметическое элементов, стоящих на четных местах

Решение