Ответы на вопрос:
Const n = 10; var a: array[1..n] of integer; i, k, min, max: integer; begin randomize; min : = 100; max : = -100; writeln('исходный массив'); for i : = 1 to n do begin k : = random(40) - 20; a[i] : = n; if max < k then max : = k else if min > k then min : = k; write(k, ' ') end; writeln; writeln('min=', min, ', max=', max) end. тестовое решение: исходный массив -8 3 19 -14 19 13 -17 -2 8 8 min=-17, max=19 const n = 10; var a: array[1..n] of integer; i, k, s: integer; begin randomize; s : = 0; writeln('исходный массив'); for i : = 1 to n do begin k : = random(40) - 20; a[i] : = n; s : = s + k; write(k, ' ') end; writeln; writeln('среднее арифметическое равно ', s / k) end. тестовое решение: исходный массив 19 11 -1 1 -4 -6 -2 18 3 8 среднее арифметическое равно 5.875
Популярно: Информатика
-
Vilka200826.08.2020 12:59
-
marmeladkina20.01.2020 03:20
-
malina80422.08.2020 17:41
-
StepaBeng12.06.2020 07:57
-
Arina166609.04.2021 19:12
-
zozoshcka1727.05.2021 15:24
-
DC200429.11.2020 18:47
-
dimaschastny16.06.2022 13:21
-
VikaCat336427.07.2021 07:07
-
aryuna200306.03.2021 04:25