Написать программу, которая находит сумму и среднее арифметическое элементов с n1 до n2 одномерного массива, заполненного случайным образом. номера элементов n1, n2 вводятся с клавиатуры. необходимо вывести исходный одномерный массив, а затем сумму и среднее арифметическое элементов введенного диапазона.
192
482
Ответы на вопрос:
Const n = 50; // количество элементов массиваvar a: array [1..n] of integer; i, sum: integer; cr: real; // среднее арифметическоеbegin for i : = 3 to n do a[i] : = random(1000); // диапазон рандомных чисел readln(a[1]); // 1 элемент массива readln(a[2]); // 2 элемент массива for i : = 1 to n do sum : = sum + a[i]; cr : = sum / n; writeln(a); writeln(sum); writeln(cr); end.
Var st: string; begin write('строка: '); readln(st); repeat delete(st,1,1); writeln(st); until length(st)< 2; end.
Популярно: Информатика
-
daffar1daffari16.02.2023 23:54
-
SOFIA020917.06.2021 07:41
-
VIDAL1721.12.2020 13:17
-
yoyo9707.03.2023 23:48
-
MishaZuev111.05.2021 17:00
-
PolyaBarane22.01.2022 15:34
-
businkakiss08.11.2022 17:35
-
7667655658626.04.2020 16:12
-
Molly1111126.10.2022 23:56
-
Танзила4409.05.2020 07:15