Предмет: Информатика,
автор: пауэрлифтинг1
помогите заполнить двумерный массив в паскале!
Приложения:
Ответы
Автор ответа:
0
Программа для решения задачи - в прилагаемом файле.
Приложения:
Автор ответа:
0
Там где большие буквы TXT
Автор ответа:
0
у меня через телефон их нет
Автор ответа:
0
скинь сюда файл
Автор ответа:
0
const n=12; m=10;
var a : array[1..n,1..m] of integer;
i,j,k : integer;
begin
k:=0;
for j:=m div 2 downto 1 do
begin
for i:=n downto 1 do begin k:=k+1; a[i,2*j]:=k; end;
for i:=1 to n do begin k:=k+1; a[i,2*j-1]:=k; end;;
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
var a : array[1..n,1..m] of integer;
i,j,k : integer;
begin
k:=0;
for j:=m div 2 downto 1 do
begin
for i:=n downto 1 do begin k:=k+1; a[i,2*j]:=k; end;
for i:=1 to n do begin k:=k+1; a[i,2*j-1]:=k; end;;
end;
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Автор ответа:
0
а как в паскале можешь расписать что за чем идёт
Похожие вопросы
Предмет: История,
автор: danon200759
Предмет: Математика,
автор: milanalol666
Предмет: Русский язык,
автор: alihanarslanov80
Предмет: Математика,
автор: TyunaevaSasha
Предмет: Биология,
автор: maksim2323