Помогите решить 2 задачи по двумерным массивам

+ 0 -

Kirsanovaira199

12 мая 2014 г., 14:49:41 (10 лет назад)

var
a:array [1..7,1..7] of integer;
i,j,k:integer;
begin
writeln('Массив:');
for i:=1 to 7 do
begin
k:=k+1;
for j:=1 to 7 do
begin
a[i,j]:=j+k;
write(a[i,j]:3);
end;
writeln;
end;
end.

var
a:array [1..7,1..7] of integer;
i,j,k:integer;
begin
writeln('Массив:');
k:=0;
for i:=1 to 4 do
begin
for j:=1 to 7 do
if (j<=k)or(j>=(7-k+1))
then begin a[i,j]:=0; a[8-i,j]:=0; end
else begin a[i,j]:=1; a[8-i,j]:=1; end;
k:=k+1;
end;
for i:=1 to 7 do
begin
for j:=1 to 7 do
write(a[i,j]:2);
writeln;
end;
end.

+ 0 -

Anastasia1V

12 мая 2014 г., 15:39:30 (10 лет назад)

нужно обе решить?

+ 0 -

Violau

12 мая 2014 г., 16:23:55 (10 лет назад)

да

+ 0 -

1894

12 мая 2014 г., 18:36:44 (10 лет назад)

помоги еще 2 решить пожалуйста
1 2 2 2 2 2 2
3 1 2 2 2 2 2
3 3 1 2 2 2 2
3 3 3 1 2 2 2
3 3 3 3 1 2 2
3 3 3 3 3 1 2
3 3 3 3 3 3 1

вот 2
0 0 0 0 0 0 1
0 0 0 0 0 2 0
0 0 0 0 3 0 0
0 0 0 4 0 0 0
0 0 5 0 0 0 0
0 6 0 0 0 0 0
7 0 0 0 0 0 0

+ 0 -

Cweta5

12 мая 2014 г., 19:59:05 (10 лет назад)

сделай новым вопросом. сделаю

+ 0 -

Vika1598

12 мая 2014 г., 21:09:25 (10 лет назад)

все написал