В двумерном массиве найти сумму положительных четных и отрицательных нечетных элементов

@Lazytown · Регистрация: 18.11.2012

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

В массиве целых чисел А(n, m) найти по отдельности сумму положительных
четных и отрицательных нечетных элементов. Как сделать?

@ermolay · 15.12.2012, 16:13

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j: byte;
  s1,s2: integer;
begin
  randomize;
  write('Введите размеры массива n, m: ');
  readln(n,m);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:4);
      if (a[i,j]>0)and(a[i,j] mod 2=0) then s1:=s1+a[i,j];
      if (a[i,j]<0)and(a[i,j] mod 2<>0) then s2:=s2+a[i,j];
    end;
    writeln;
  end;
  writeln;
  writeln('Сумма положительных четных = ',s1);
  writeln('Сумма отрицательных нечетных = ',s2);
  readln;
end.

@Lazytown · 16.12.2012, 16:41 **[ТС]**

Спасибо)

@Lazytown 0 / 0 / 0 Регистрация: 18.11.2012 Сообщений: 24
		1
	В двумерном массиве найти сумму положительных четных и отрицательных нечетных элементов 15.12.2012, 15:43. Показов 2133. Ответов 2 Метки нет (Все метки) В массиве целых чисел А(n, m) найти по отдельности сумму положительных четных и отрицательных нечетных элементов. Как сделать? 0

@Lazytown 0 / 0 / 0 Регистрация: 18.11.2012 Сообщений: 24
	16.12.2012, 16:41 [ТС]	3
	Спасибо) 0

В двумерном массиве найти сумму положительных четных и отрицательных нечетных элементов

Решение