Помогите,пожалуйста. Надобно написать программу в паскале. Заполнить массив случайными числами в интервале от -10 до 10 и выполнить инверсию отдельно для 1 и 2 части. Пример: 1 -2 6 -8 -3 | 5 -7 1 0 -4 -3 -8 6 -2 1 | -4 0 1 -7 5
Помогите,пожалуйста. Надобно написать программу в паскале.
Заполнить массив случайными числами в интервале от -10 до 10 и выполнить инверсию отдельно для 1 и 2 части.
Пример:
1 -2 6 -8 -3 | 5 -7 1 0 -4
-3 -8 6 -2 1 | -4 0 1 -7 5
Гость
Ответ(ы) на вопрос:
Гостьprogram xax;
var i:shortint;
a,b: array [-10..10] of byte;
begin
randomize;
for i:=-10 to 10 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
for i:=-10 to -1 do
b[i]:=a[-11-i];
for i:=1 to 10 do
b[i]:=a[11-i];
b[0]:=a[0];
for i:=-10 to 10 do
write(b[i],' ');
end.
Не нашли ответ?
Похожие вопросы