Решаем задачи Абрамян на Паскале. Array15

Array15. Дан массив $$A$$ размера $$N$$. Вывести вначале его элементы с нечетными номерами в порядке возрастания номеров, а затем — элементы с четными номерами в порядке убывания номеров. $$A_1, A_3, A_5, …, A_6, A_4, A_2$$. Условный оператор не использовать.

Решение:

program Array15;
var
  a:array[1..10] of integer;
  N,i:Integer;

begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  i:=1;
  While (i<=N) do
   begin
    writeln(i,' : ',a[i]);
    i:=i+2;
   end;

  i:=(N div 2)*2;

  While (i>=1) do
   begin
    writeln(i,' : ',a[i]);
    i:=i-2;
   end;
end.

program Array15;

var

a:array[1..10] of integer;

N,i:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=1;

While (i<=N) do

begin

writeln(i,' : ',a[i]);

i:=i+2;

end;

i:=(N div 2)*2;

While (i>=1) do

begin

writeln(i,' : ',a[i]);

i:=i-2;

end;

end.

Другие задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array15

Комментарии:

Добавить комментарий Отменить ответ