В массиве четное количество элементов поменять местами в массиве 1 с последним 2 с предпоследним и т.д
10-11 класс
|
Const NN=50;
var
a:array [1..NN] of integer;
i,n,k:integer;
begin
write('Введите кол-во эл-тов массива: ');
readln(n);
for i:= 1 to n do
begin
a[i]:=random(50);
write(a[i],' ');
end;
writeln;
for i:= 1 to n div 2 do
begin
k:=a[i];
a[i]:=a[n-i+1];
a[n-i+1]:=k;
end;
for i:= 1 to n do write(a[i],' ');
end.
Другие вопросы из категории
вычитание,умножения,деление с любыми двумя результатами
вводится последовательность из n целых чисел. определить, содержит ли последовательность хотя бы два равных соседних числа (a_i=a_(i+1)) (без массива)
Читайте также
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
столбце первый и последний отрицательные элементы;
(Паскаль)
экран в виде таблицы и количество элементов равных 1.
превышающих среднее арифметическое значение элементов массива
.....
В массиве 3 на 6 поменять местами элементы второго и пятого столбца строки.