Вывести на экран значения массива из 100 элементов по спирали. Будем понимать под этим следующее: выводить по 10 элементов в каждой строке, при этом каждая вторая строка должна выводиться "задом наперед": сначала последние элем...
Вывести на экран значения массива из 100 элементов по спирали. Будем понимать под этим следующее: выводить по 10 элементов в каждой строке, при этом каждая вторая строка должна выводиться "задом наперед": сначала последние элементы строки, а затем первые.
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET 3.1 сборка 1219
Const
n=100;
Var
ar:array[1..n] of integer;
i,j:integer;
begin
writeln('Array:');
for i:=1 to 100 do
begin
ar[i]:=i;
write(ar[i]:4);
end;
writeln;
writeln('Result:');
for i:=0 to 9 do
if not(odd(i)) then
begin
for j:=1 to 10 do
write(ar[i*10+j]:4);
writeln;
end
else
begin
for j:=10 downto 1 do
write(ar[i*10+j]:4);
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы