Ответы на вопрос:
1.const n=10; var a: array[1..n] of integer; i,min,max: integer; beginfor i: =1 to n do a[i]: =random(50); for i: =1 to n do write(a[i]: 4); writeln; min: =32000; max: =-32000; for i: =1 to n doif a[i]< min then min: =a[i]; for i: =1 to n do if a[i]> max then max: =a[i]; writeln('минимальный элемент массива = ',min); writeln('максимальный элемент массива= ',max); end.2.const n=10; var a: array[1..n] of integer; i,j,p: integer; beginfor i: =1 to n do a[i]: =random(20); for i: =1 to n do write(a[i]: 4); writeln; for i: =1 to n-1 do beginfor j: =1 to n-1 doif a[j]< =a[j+1] then beginp: =a[j]; a[j]: =a[j+1]; a[j+1]: =p; end; end; for i: =1 to n do write(a[i]: 4); end.
Популярно: Информатика
-
Яночка8686486402.06.2021 07:56
-
hellohelloschool03.07.2021 12:49
-
schooll1311.07.2020 00:58
-
Stasuyksuper0614.03.2022 15:45
-
JodiRimmet2708.06.2020 01:06
-
homkagamaet01.09.2020 22:57
-
Deafandblind22.12.2020 21:15
-
Doktor7711.06.2021 16:19
-
ciromerka20.03.2021 19:11
-
VikaDavydova205.09.2022 04:43