Учеба и наука

Решено

Дан массив из N элементов (N- четное). Распечатать его в следующем порядке: a1,an,a2,a(n-1)...,a(n/2),a(n/2+1). Через Pascal ABC. - вопрос №2672138

ноябрь 26, 2017 г.

Сообщить о нарушении

Всего ответов: 1

Андрей Андреевич

2-й в Учебе и науке

4.9 844 отзыва

Возможный вариант :
program array;
var
   a: array[1..10] of integer;
   N,i,k: integer;

   begin
      write('Введите четное число N: ');
      readln(N);
    for i := 2 to N do a[i] := random(20);
    for i := 1 to N do write(a[i]:4);
    writeln;
    writeln('результат');
    k:=N div 2;
    for i := 1 to k do write (a[i]:4,a[N+1-i]:4);
end.