Перестановка одномерного массива в обратном порядке. Значение длины массива вводиться с клавиатуры .Массив печать до и после перестановки .штук 9 формат 8
1 комментария:
Что такое "штук 9 формат 8" я не понимаю
Что такое "штук 9 формат 8" я не понимаю Ответы
Гость //Pascal
var
i, tmp, N: integer;
A: array [1 .. 255] of integer;
begin
write('Количество элементов в массиве: ');
readln(N);
writeln('Массив до перестановки.');
randomize;
for i := 1 to N do
begin
A[i] := random(10);
write(A[i], ' ')
end;
writeln;
for i := 1 to N div 2 do
begin
tmp := A[i];
A[i] := A[N - i + 1];
A[N - i + 1] := tmp;
end;
writeln('Массив после перестановки.');
for i := 1 to N do write(A[i], ' ');
writeln;
readln;
end.
Нет комментариев
Похожие вопросы
Информатика
Ответить на вопросы с пожалуйста...
Список предметов
