40 .всем доброго вечера), изменить начальную программу(в - вопрос №895348240 от Yarik176 31.05.2023 22:03

Question

Информатика: 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.

Yarik176 · Answer

Const n=10;var a:array [1..n] of integer;i,imin,tmp:integer;beginwriteln( введите массив: );for i:=1 to n do readln(a[i]);imin:=1;for i:=2 to n do  if a[i] 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.Пример:введите массив:1232102248453629452512 32 10 45 29 36 45 48 22 25...