Uses crt;
var a:array[1..7,1..4] of integer;
sum,i,j:integer;
begin
ClrScr;
writeln('Ââåäèòå ìàòðèöó (7,4)');
for i:=1 to 7 do begin
for j:=1 to 4 do begin
writeln('a[',i,',',j,']= ');
readln(a[i,j]);
if (a[i,j]>0) and (i mod 2 = 0) then sum:=sum+a[i,j];
end;
end;
writeln('Cóììà: ',sum);
end.