Двумерные массивы. Даны три матрицы A5x6, B7x4, C3x8. для каждой из них найдите сумму элементов чётных строк.

[Наташечка21]

Даны три матрицы A5x6, B7x4, C3x8. для каждой из них найдите сумму элементов чётных строк.
Замечание. Результат должен быть записан в одномерный массив R3. Значения элементов матриц вводятся с клавиатуры; результат выводится на экран.
В виде подпрограмм должны быть оформлены:
1. Ввод и вывод исходных матриц;
2. Вывод результирующего вектора.

[Наташечка21]

Даны три матрицы A5х6, B7х4, C3х8. для каждой из них найдите сумму элементов чётных строк.
Замечание. Результат должен быть записан в одномерный массив R3. Значения элементов матриц вводятся с клавиатуры; результат выводится на экран.
В виде подпрограмм должны быть оформлены:
1. Ввод и вывод исходных матриц;
2. Вывод результирующего вектора.

1.я, похоже не правильно вообще оформила процедуры.2. правильный ответ не выводится

program zad225;
 var a:array[1..5,1..6] of integer;
 b:array[1..7,1..4] of integer;
 n:array[1..3,1..8] of integer;
 s:array[1..3] of integer;
 i,j,d:integer;
 procedure vvodvivod(a,b:integer);
 var c:array[1..20,1..20] of integer;
 begin
 for i:=1 to a do
 for j:=1 to b do
 begin
 write('c[',i,',',j,']=');
 readln(c[i,j]);
 end;
 begin
 for i:=1 to a do
 begin
 for j:=1 to b do
 write(c[i,j]:4);
 writeln;
 end;
 end;end;
 procedure summ(a,b:integer;var s:array of integer);
 var c:array[1..20,1..20] of integer;
 begin
 vvodvivod(a,b);
 for i:=1 to a do
 for j:=1 to b do
 if (i mod 2)=0 then
 for d:=1 to a do
 s[d]:=c[i,j]+s[d];
 write(s[d]);
 writeln;
 end;
 begin
 writeln('matrica 1: ');
 summ(5,6,s);
 writeln('matrica 2: ');
 summ(7,4,s);
 writeln('matrica 3: ');
 summ(3,8,s);
 end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.