Программа на паскале
дано 10 чисел
найти среднее арифметическое всех чисел, потом положительных, потом отрицательных.
for var i:=1 to 10 do
148
249
Ответы на вопрос:
var i, n, sum, sum_1, count_1, sum_2, count_2:integer;
begin
for i:=1 to 10 do begin
readln(n);
sum = sum + n;
if n >= 0 then begin
sum_1 = sum_1 + n;
count_1 = count_1 + 1;
end;
if n < 0 then begin
sum_2 = sum_2 + n;
count_2 = count_2 + 1;
end;
end;
writeln('Среднее всех чисел: ', sum/10);
writeln('Среднее всех положительных чисел: ', sum_1/count_1);
writeln('Среднее всех отрицательных чисел: ', sum_2/count_2);
end.
Популярно: Информатика
-
89280214745B23.11.2022 02:34
-
Lelik21327.11.2021 14:57
-
влажную02.11.2020 18:30
-
Сирена1111117.06.2022 04:14
-
elizavetdu0411.11.2021 01:18
-
virusvirus9304.10.2020 10:01
-
maria61019.03.2022 02:40
-
anastasija193p07d7p03.11.2021 00:53
-
akoa21.09.2022 23:28
-
Iruna13109.02.2020 10:45