
Cordalen
4 год назад
Дан массив из N элементов (N- четное). Распечатать его в следующем порядке: a1,an,a2,a(n-1)...,a(n/2),a(n/2+1). Через Pascal ABC. Пожалуйста посчитайте пожалуйста.
ОТВЕТЫ

Демид
Oct 24, 2020
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
for i:=1 to n div 2 do write(a[i]:4, a[n-i+1]:4);
writeln;
end.
Пример:
Массив A:
124436911310113730
123044373611910113
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
for i:=1 to n div 2 do write(a[i]:4, a[n-i+1]:4);
writeln;
end.
Пример:
Массив A:
124436911310113730
123044373611910113
204
Смежные вопросы: