Ответы на вопрос:
program qqq;
const n=5;
var m: array [1..n] of integer;
i: byte;
a,b,s: integer;
begin
s: =0;
randomize;
write('введите a = '); readln(a);
write('введите b = '); readln(b);
for i: =1 to n do begin
m[i]: =random (a,b);
s: =s+m[i];
end;
writeln ('среднее арифмитическое= ',(s/n): 0: 4);
end.
Популярно: Информатика
-
stikmanov18.05.2020 20:11
-
kvasik03219.09.2020 06:18
-
Masha827104.06.2020 19:19
-
марина170418.02.2020 16:42
-
irajuta8220.05.2023 16:10
-
Omg55russ01.07.2022 09:12
-
ALEXAND203302.01.2021 00:11
-
Anyazolotiya28.04.2021 14:33
-
mukola1625.01.2021 21:12
-
Farzalievik19.02.2023 03:47