Регистрация
emalets20042
06.11.2022 09:17
Информатика
Есть ответ 👍

Паскаль: дано n чисел, найти среднее арифметическое положительных из них

270
314
Посмотреть ответы 2

Ответы на вопрос:

diana1157
diana1157
4,4(26 оценок)
Var   i,n, pol: integer;   //pol - количество положительных чисел, n - количество всех чисел   a,s: real;   //a- вводимое число, s - сумма положительных чисел begin   pol: = 0;   //обнуляем счетчик   s: = 0;     writeln('введите количество чисел');   readln(n);   for i: = 1 to n do   begin     writeln('введите число');     readln(a);     if a > 0 then     begin         s: = s + a;       pol: = pol + 1;       end;   end;   writeln('среднее арифметическое положительных чисел:   ', s / pol);   {среднее арифметическое равно сумме чисел делить на их количество} end.
gax17003
gax17003
4,4(40 оценок)
1гб = 1024мб   16,2/1024= 0,0158203125 64-1,27-1,2-0,0158=61,5142 (свободная часть) 1,27+1,2+0,0158=2,4542 (заполнена)

Популярно: Информатика