двойные массивы

@natashasharova · Регистрация: 20.10.2013

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

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

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

Pascal

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.

	08.12.2013, 00:05