сумма индексов

@Dante97 · Регистрация: 05.11.2014

в матрице найти сумму индексов четных элементов

@ZX Spectrum-128 · 13.11.2015, 08:47

Pascal

var
  a: array[1..100, 1..100] of integer;
  i, j: integer;
  n, m, sum: integer;
 
begin
  n := 2;
  m := 2;
  sum := 0;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(n * m);
      write(a[i, j]:5);
      if not odd(a[i, j]) then
        sum := sum + i + j;
    end;
    writeln;
  end;
  writeln(sum);
end.

@Dante97 0 / 0 / 0 Регистрация: 05.11.2014 Сообщений: 39
		1
	сумма индексов 12.11.2015, 15:26. Показов 1087. Ответов 1 Метки нет (Все метки) в матрице найти сумму индексов четных элементов 0

Опции темы

сумма индексов

Решение