Помогите пожалуйста!!! Заполнить одномерный массив размером [8] случайными числами в интервале от -50 до 50. Поменять местами равноотстоящие от центра элементы. Например: На входе: -5 6 7 8 -1 3 12 36 На выходе: 36 12 3 -...
Помогите пожалуйста!!!
Заполнить одномерный массив размером [8] случайными числами в интервале от -50
до 50. Поменять местами равноотстоящие от центра элементы.
Например:
На входе:
-5
6
7
8
-1
3
12
36
На выходе:
36
12
3
-1
8
7
6
-5
Гость
Ответ(ы) на вопрос:
Гостьconst n=8;
var a:array[1..n] of integer;
b,i:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i]:3);
end;
writeln;
for i:=1 to n div 2 do
begin
b:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=b
end;
for i:=1 to n do write(a[i]:3);
writeln;
end.
Пример:
9 5 6 11 13 4 16 18
18 16 4 13 11 6 5 9
Не нашли ответ?
Похожие вопросы