Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197347
08.12.2019, 10:30
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:
Инвертировать часть массива с элемента, номер которого задан, до последнего максимального элемента массива.
в паскале

Обсуждение

давно
Gluck
Студент
402651
154
09.12.2019, 19:16
общий
10.12.2019, 20:47
это ответ
Здравствуйте, JonMoxley!

Попробуй...
[code lang=pascal]uses crt;
var a:array [1..10] of integer; // Массив из 10 эл-тов
i, k, n, b, max: integer;
begin
write ('k=');
read (k);
for i:=1 to 10 do
begin
write ('a[',i,']=');
read (a[i]);
end;
n:=0;
max:=a[1];
for i:=1 to 10 do // Находим максимальный эл-нт
if a[i]>=max then
begin
max:=a[i];
n:=i;
end;
for i:=k to ((k+n-1) div 2) do
begin
b:=a[i];
a[i]:=a[n+k-i-1];
a[n+k-i-1]:=b;
end;
for i:=1 to 10 do
write (a[i]:4);
end.[/code]
Форма ответа