Ответы на вопрос:
//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) const m = 10; var t: array[1..m] of integer; i, n, nm, sm: integer; begin //заполняем массив сл.числами и подсчитываем //количество элементов и среднее арифметическое //согласно условию for i : = 1 to m do begin t[i] : = random(-20, 20); write(t[i]: 4); if (i > 1) and (i < = m) then if t[i] > t[i - 1] then n : = n + 1 else if t[i] < t[i - 1] then begin sm : = sm + t[i]; nm : = nm + 1; end; end; writeln; writeln('число элементов больших предыдущего = ', n); writeln('ср. арифметическое элементов меньших предыдущего = ', sm / nm); end. тестовое решение: 6 13 19 8 -19 -11 -20 -15 -19 -13 число элементов, больших предыдущего = 5 среднее арифметическое элементов, меньших предыдущего = -12.5
Популярно: Информатика
-
криссть11127.11.2022 18:37
-
ssarahiss26.02.2022 12:07
-
lera2003726.02.2021 06:41
-
Snihdsfg24.03.2020 19:12
-
TEM1KK06.05.2021 15:13
-
влад225314.05.2021 03:23
-
Mastermastack31.08.2022 15:50
-
123Лёшка32127.02.2023 07:08
-
ievghienii120.07.2022 03:01
-
klimsamgim923dushez23.06.2022 09:21