Дан двумерный массив 5 на 7. Заполнить его следующим образом. ПОМОГИТЕ ДАЮ 30 БАЛЛОВ!
Приложения:
![](https://st.uroker.com/files/aa7/aa7e193d948f549d86b957a3e82d6278.png)
fovfabomi:
язык программирования какой?
Ответы
Ответ дал:
1
var a: array [1..5,1..7] of integer;
i,j:integer;
begin
a[1,1]:=1;
i:=1;
for j:=2 to 7 do a[i,j]:=a[i,j-1]+1;
for i:=2 to 5 do a[i,j]:=a[i-1,j]+1;
for j:=6 downto 1 do a[i,j]:=a[i,j+1]+1;
for i:=4 downto 2 do a[i,j]:=a[i+1,j]+1;
for j:=2 to 6 do a[i,j]:=a[i,j-1]+1;
for i:=3 to 4 do a[i,j]:=a[i-1,j]+1;
for j:=5 downto 2 do a[i,j]:=a[i,j+1]+1;
a[3,2]:=32;
i:=3;
for j:=3 to 5 do a[i,j]:=a[i,j-1]+1;
for i:=1 to 5 do begin
for j:=1 to 7 do write(a[i,j]:3);
writeln;
end;
end.
Приложения:
![](https://st.uroker.com/files/aee/aee4880ddd7b5fed311411f16958b7b8.png)
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад