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

@andrew102rus2 · Регистрация: 12.06.2014

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

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

@ildwine · 26.06.2014, 14:26

Pascal

const
  n = 4;
  m = 5;
var
  a : array [1..n, 1..m] of integer;
  i, j, k_odd, k_even : integer;
begin
  k_odd := 0;
  k_even := 0;
  writeln('исходный массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(100);
      write(a[i,j]:4);
      if a[i,j] mod 2 = 0 then inc(k_even) else inc(k_odd)
    end;
    writeln
  end;
  writeln('четных: ', k_even, ', нечетных: ', k_odd);
  if k_odd > k_even then writeln('нечетных больше') else
    if k_odd < k_even then writeln('четных больше') else
      writeln('количество четных и нечетных одинаково')
end.

@andrew102rus2 0 / 0 / 0 Регистрация: 12.06.2014 Сообщений: 3
		1
	Определить каких элементов больше четных или нечетных 26.06.2014, 09:19. Показов 3255. Ответов 1 Метки нет (Все метки) Дан двумерный массив. Определить каких элементов в массиве больше четных или нечетных. 0

	26.06.2014, 14:26

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

Решение