Объединение двух программ.

[Nicole]

Прошу помочь мне соединить воедино две проги (1-я выводит сумму четных чисел массива, 2-я - сумму нечетных чисел того же массива), мне этого необходимо для сравнения сумм. Сделать это смогу сама, проблема состоит только в объединении (знаю, что надо делать через циклы, но не знаю как)... Соедините их, пожалуйста, а я потом сама во всем разберусь...

uses Crt;
const N=4;
type
   matrix= array [1..N, 1..N] of integer;
var
   a: matrix;
   i, j, s: integer;
begin
   writeln ('Введите значения элементов матрицы: ');
  for i:=1 to N do
    for j:=1 to N do begin
    write ('a[',i,',',j,']=');
    readln (a[i,j]);
    end;
  s:=0;
  for i:=1 to N do
    for j:=1 to N do begin
      if (a[i,j] mod 2 = 0) then begin
        s:=s+a[i,j];
      end;
    end;
  ClrScr;
  for i:=1 to N do
    for j:=1 to N do begin
      GotoXY(i*4-3,j);
      Writeln(a[i,j]);
    end;
  Writeln('Сумма четных чисел: ',s);
end.

uses Crt;
const N=4;
type
   matrix= array [1..N, 1..N] of integer;
var
   a: matrix;
   i, j, s: integer;
begin
   writeln ('Введите значения элементов матрицы: ');
  for i:=1 to N do
    for j:=1 to N do begin
    write ('a[',i,',',j,']=');
    readln (a[i,j]);
    end;
  s:=0;
  for i:=1 to N do
    for j:=1 to N do begin
      if (a[i,j] mod 2 <> 0) then begin
        s:=s+a[i,j];
      end;
    end;
  ClrScr;
  for i:=1 to N do
    for j:=1 to N do begin
      GotoXY(i*4-3,j);
      Writeln(a[i,j]);
    end;
  Writeln('Сумма нечетных чисел: ',s);
end.

[Neser]

uses Crt;
const N=4;
type
   matrix= array [1..N, 1..N] of integer;
var
   a: matrix;
   i, j, s: integer;
begin
   writeln ('Введите значения элементов матрицы: ');
  for i:=1 to N do
    for j:=1 to N do begin
    write ('a[',i,',',j,']=');
    readln (a[i,j]);
    end;
  s:=0;
  sn:=0;
  for i:=1 to N do
    for j:=1 to N do begin
      if (a[i,j] mod 2 = 0) then begin
        s:=s+a[i,j];
       end;
 if (a[i,j] mod 2 <> 0) then begin
        sn:=sn+a[i,j];
      end;
    end;
  ClrScr;
  for i:=1 to N do
    for j:=1 to N do begin
      GotoXY(i*4-3,j);
      Writeln(a[i,j]);
    end;
  Writeln('Сумма четных чисел: ',s);
end.

Вот так приблизительно. Просто добавляеш условие ещо одно или там else допишеш вместо if. Теперь у тебя две суммы - s і sn

[Serge_Bliznykov]

я бы предложил чуть упростить код (с) Neser
(хотя, он правильно должен работать и так!)

  for i:=1 to N do
    for j:=1 to N do 
      if odd(a[i,j]) 
         then sn:=sn+a[i,j]
         else  s:=s+a[i,j];
  ClrScr;
......

  Writeln('Сумма четных чисел: ',s);
  Writeln('Сумма нечетных чисел: ',sn);

[Son Of Pain]

А еще по хорошему первые два цикла надо бы объединить в один...

[Nicole]

Спасибо огромное, ребята!
Замечания учту!