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

@Night Breez · Регистрация: 08.12.2012

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

1.Дан двухмерный массив целых чисел.Определить среднее арифметическое четных элементов массива.

Kodzaev · 01.04.2013, 22:29

Сообщение от Night Breez

1.Дан двухмерный массив целых чисел.Определить среднее арифметическое четных элементов массива.

Pascal

Var
  x: Array [1..10,1..10] of Integer;
  i,j,n,m: Byte;
  s,k: Integer;
BEGIN
Write('Введите размеры массива:  ');
Read(n,m);
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(100);
    If x[i,j] mod 2=0 Then
    begin
      s:=s+x[i,j];
      k:=k+1;
    end;
    Write(x[i,j]:4);
  end;
  Writeln
end;
Writeln('Ср. арифм. четных элементов = ',s/k:2:2);
END.

@Night Breez · 01.04.2013, 22:32 **[ТС]**

Спасибо большое))очень вам благодарна))

Kodzaev · 01.04.2013, 22:32

Для каждой из остальных задач создайте отдельные темы. Таковы правила форума.

@Night Breez 0 / 0 / 0 Регистрация: 08.12.2012 Сообщений: 24
		1
	Определить среднее арифметическое четных элементов массива 01.04.2013, 22:02. Показов 5952. Ответов 3 Метки нет (Все метки) 1.Дан двухмерный массив целых чисел.Определить среднее арифметическое четных элементов массива. 0

@Night Breez 0 / 0 / 0 Регистрация: 08.12.2012 Сообщений: 24
	01.04.2013, 22:32 [ТС]	3
	Спасибо большое))очень вам благодарна)) 0

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	01.04.2013, 22:32	4
	Для каждой из остальных задач создайте отдельные темы. Таковы правила форума. 1

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

Решение