Запишите программу формирования и вывода массива из 20 случайных чисел (из диапазона от 0 да 1000) и вычисления их среднего значения
194
407
Ответы на вопрос:
Var m: array[1..100] of integer; i,s,n: longint; a: real; begin randomize; writeln('массив: '); for i: =1 to 20 do begin m[i]: =random(1001); write(m[i],' '); s: =s+m[i]; end; a: =s/20; writeln('среднее арифметическое: ',a: 2: 3); end.
Популярно: Информатика
-
пажалуйста421.12.2022 04:50
-
avon30081712.05.2022 14:52
-
jcgddrMarins21.07.2022 14:06
-
клубочек33307.06.2021 18:15
-
dimysisdimysis01.02.2021 14:04
-
skata919606.11.2022 21:27
-
никлася14.11.2022 13:15
-
cyrkunova5630.09.2022 13:50
-
Odarchuk16.04.2023 00:35
-
Nastiya32009.04.2020 02:00