var
a:array[1..3, 1..4] of integer;
i, j:integer;
begin
for i:=low(a) to high(a) do
for j:=low(a[low(a)]) to high(a[low(a)]) do
readln(a[i, j]);
i:=low(a)+1;
while (i<high(a)) do begin
for j:=low(a[low(a)]) to high(a[low(a)]) do
a[i, j]:=1;
i:=i+2;
end;
for i:=low(a) to high(a) do begin
for j:=low(a[low(a)]) to high(a[low(a)]) do
write(a[i, j]:3);
writeln;
end;
end.
а можна так...
var
a:array[1..3, 1..4] of integer;
i, j:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
readln(a[i, j]);
for i:=1 to 4 do
a[2,i]:=1;
for i:=1 to 3 do begin
for j:=1 to 4 do
write(a[i, j]:3);
writeln;
end;
end.
зы будут вопросы -- задавай...
зы2 сначало разберись со вторым вариантом...
Сообщение отредактировано: compiler -