Ответы на вопрос:
program a1; var a: array[1..30] of integer; amax,amin,i,imin,imax,n,s: integer; beginwriteln('введите n элементов массива'); readln(n); for i: =1 to n do a[i]: =random(30); writeln('введённый массив имеет вид'); for i: =1 to n do write(a[i], ' '); writeln; amax: =a[1]; imiax: =1; for i: =2 to n do if a[i]> amax then begin amax: =a[i]; imax: =i; end; amin: =a[1]; imin: =1; for i: =2 to n do if a[i]< amin then begin amin: =a[i]; imin: =i; end; writeln('полученный массив имеет вид'); s: =a[imin];
a[imin]: =a[imax];
a[imax]: =s; for i: =1 to n do writeln(a[i],' '); end.
Популярно: Информатика
-
Nekotin021.12.2021 21:31
-
alenxolod336426.09.2021 08:58
-
flopeNIX02.11.2020 16:09
-
dashakeks209.06.2020 18:21
-
Kate777939372704.10.2022 22:35
-
tarasov7822.07.2021 17:45
-
anna166015.04.2021 17:43
-
иван115519.08.2022 13:22
-
akon170811.09.2020 11:38
-
dance702.05.2020 07:42