Предмет: Информатика,
автор: Lamero
Выполнить реверс массива из 10 элементов,заполненного случайными числами в интервале [-100;100].
DenisDoki:
какой язык то?
Ответы
Автор ответа:
1
readln(n);
for i:=1 to n do
a[i]:=random(100); //тут можно ввести макс. значение для рандома
k:=n div 2;
for i:=1 to k do
begin
t:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=t;
end;
inc(k);
for i:=k to n do
begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t;
end;
for i:=1 to n do
write(a[i],' ');
writeln;
readln;
end.
for i:=1 to n do
a[i]:=random(100); //тут можно ввести макс. значение для рандома
k:=n div 2;
for i:=1 to k do
begin
t:=a[i]; a[i]:=a[k-i+1]; a[k-i+1]:=t;
end;
inc(k);
for i:=k to n do
begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t;
end;
for i:=1 to n do
write(a[i],' ');
writeln;
readln;
end.
Похожие вопросы
Предмет: Русский язык,
автор: Maylli9824
Предмет: Математика,
автор: саша4155
Предмет: Математика,
автор: narolskaya19601
Предмет: Физика,
автор: Jannik124