Сначало Англичанин со своей женой едут в лодке на другой берег. на другом берегу остаётся Англичанин, а его жена едит обратно.
Затем Англичанка берёт с собой негритянку и они переправляются на другой берег. на другом берегу остаётся англичанка со своим мужем.
Негретянка едет обратно и берёт с обой своего мужа и переправляется с ним на другой берег. на другом берегу остаётся негр, а его жена едет обратно. Негретянка берёт с собой жену индейца и переправляется с ним на другой берег. на другом берегу остаётся Англичанин со свой женой и негр со своей женой. жена индейца едет обратно и забирает своего мужа и они плывут на другой берег
program picaso; uses crt; type matrice=array[1..10,1..10] of integer; var i,j,n,m,k:integer; a:matrice; procedure rea(var a:matrice); begin writeln('n: ');readln(n); writeln('m: ');readln(m); writeln('ведите ',n*m,' элементов'); for i:=1 to m do for j:=1 to n do begin write('A[',i,',',j,']='); readln(A[i,j]); end; end; procedure writ; begin writeln('Массив A'); for i:=1 to m do begin for j:=1 to n do write(A[i,j],' '); writeln; end; end; procedure calc(a:matrice ); begin
for j:=1 to n do begin k:=0; for i:=1 to m do
if a[i,j] > 0 then inc(k); writeln('столбец :',j,' положительные элементы : ',k); end; end; begin clrscr; rea(a); writ; calc(a); readln; end.
Сначало Англичанин со своей женой едут в лодке на другой берег. на другом берегу остаётся Англичанин, а его жена едит обратно.
Затем Англичанка берёт с собой негритянку и они переправляются на другой берег. на другом берегу остаётся англичанка со своим мужем.
Негретянка едет обратно и берёт с обой своего мужа и переправляется с ним на другой берег. на другом берегу остаётся негр, а его жена едет обратно. Негретянка берёт с собой жену индейца и переправляется с ним на другой берег. на другом берегу остаётся Англичанин со свой женой и негр со своей женой. жена индейца едет обратно и забирает своего мужа и они плывут на другой берег
program picaso; uses crt;
type matrice=array[1..10,1..10] of integer;
var i,j,n,m,k:integer;
a:matrice;
procedure rea(var a:matrice);
begin
writeln('n: ');readln(n);
writeln('m: ');readln(m);
writeln('ведите ',n*m,' элементов');
for i:=1 to m do
for j:=1 to n do
begin
write('A[',i,',',j,']=');
readln(A[i,j]);
end;
end;
procedure writ;
begin
writeln('Массив A');
for i:=1 to m do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
end;
procedure calc(a:matrice );
begin
for j:=1 to n do
begin
k:=0;
for i:=1 to m do
if a[i,j] > 0 then inc(k);
writeln('столбец :',j,' положительные элементы : ',k);
end;
end;
begin clrscr;
rea(a);
writ;
calc(a);
readln;
end.