Вопрос по информатике:
Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить инверсию отдельного для 1-ой и 2-ой половин массива.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
Результат:
-4 10 3 -5 4 0 1 -10 8 -6
Пожаловаться
- 02.09.2018 08:26
- Информатика
- remove_red_eye 9860
- thumb_up 5
Ответы и объяснения 1
Const n=10;
var a:array[1..n] of integer;
i,t:integer;
begin
Randomize;
writeln('A:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
for i:=1 to n div 4 do
begin t:=a[i]; a[i]:=a[n div 2-i+1]; a[n div 2-i+1]:=t;
t:=a[n div 2+i]; a[n div 2+i]:=a[n-i+1]; a[n-i+1]:=t; end;
writeln('new A:');
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
A:
-8 -10 -7 4 -6 10 7 10 -7 1
new A:
-6 4 -7 -10 -8 1 -7 10 7 10
var a:array[1..n] of integer;
i,t:integer;
begin
Randomize;
writeln('A:');
for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
writeln;
for i:=1 to n div 4 do
begin t:=a[i]; a[i]:=a[n div 2-i+1]; a[n div 2-i+1]:=t;
t:=a[n div 2+i]; a[n div 2+i]:=a[n-i+1]; a[n-i+1]:=t; end;
writeln('new A:');
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
A:
-8 -10 -7 4 -6 10 7 10 -7 1
new A:
-6 4 -7 -10 -8 1 -7 10 7 10
Пожаловаться
- 03.09.2018 19:09
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы