имеется вещественный массив, состоящий из 9 элементов.найти сумму, среднее арифметическое и произведение всех элементов. - №434375

имеется вещественный массив, состоящий из 9 элементов.найти сумму, среднее арифметическое и произведение всех элементов.
- Предмет:
  Информатика
- Автор:
  mendoza
- 6 лет назад

Ответы 1

var a: array [1..9] of real;

s,p: real;

BEGIN

p:=1;

s:=0;

for i:= 1 to 9 do

begin

    read(a[i]);

    s:= s+a[i];

    p:=p*a[i];

end;

writeln("Summa=",s);

writeln("Srednee arefmeticheskoe=",s/n);

writeln("Proizvedenie=",p);

END.
- Автор:
  oakley
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years