40 БАЛЛОВ.Всем Добросердечного Вечера), помогите поменять исходную программу(В ПАСКАЛЕ). Дано такое
40 БАЛЛОВ.Всем Благого Вечера), помогите поменять начальную программку(В ПАСКАЛЕ). Дано такое задание: Дан одномерный массив. Переставить в оборотном порядке элементы массива, расположенные меж минимальным и заключительным элементами. Т.е должно получиться следующее:
1 2 3 4 5
1 4 3 2 5
Исходная программка:
Program homework;
var a:array [1..100] of integer;
i,n:integer;
begin
writeln('введите n=');
readln(n) ;
writeln('введите массив:');
for i:=1 to n do readln(a[i]);
for i:=n downto 1 do
write(' ',a[i]);
readln;
end.
P.S. Буду очень признателен, если досконально все распишите, плохо разумею информатику(
var a:array [1..n] of integer;
i,imin,tmp:integer;
begin
writeln('введите массив:');
for i:=1 to n do readln(a[i]);
imin:=1;
for i:=2 to n do
if a[i]lt;a[imin] then imin:=i;
writeln(imin);
for i:=1 to (n-imin-1) div 2 do
begin tmp:=a[imin+i]; a[imin+i]:=a[n-i]; a[n-i]:=tmp; end;
for i:=1 to n do write(a[i],' ');
end.
Пример:
введите массив:
12
32
10
22
48
45
36
29
45
25
12 32 10 45 29 36 45 48 22 25
Остальное через минутку
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.