1. Информатика
  2. Имеется вещественный массив,

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

lenok0701 lenok0701    1   04.03.2019 09:00    7

Ответы
flslskns flslskns  24.05.2020 01:52

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Парень1231 Парень1231  04.04.2021 10:58
Как называется плата у монитора syncmaster 920bw?​...
turkeev90 turkeev90  07.04.2020 19:58
Определите заполнения массива. randomize;for i:=1 to 10 do a[i] :=random(52) 1.с оператора присваивания ( случайными числами) 2.нет верного ответа3.ввод каждого значения...
аы437 аы437  07.04.2020 19:58
1. Вычисление объема текстовой информации. Задача 1. Какова мощность алфавита, с которого записано сообще-ние, содержащее 2048 символов, если его объем составляет 1/512...
егормай егормай  03.03.2021 22:36
Таблица истинности логического выражения (сообщение)...
vanuytoa vanuytoa  30.05.2019 00:50
Выполните вычисления в microsoft excel: цена 1 куб. метра леса в январе - n долларов. прогнозируемая инфляция составляет 17% в год. рассчитайте стоимость (в руб., при этом...
рдабаббмдедпббб рдабаббмдедпббб  30.05.2019 00:50
Дан массив целых чисел. найти сумму элементов массива, больших данного числа а c++...
tskripko tskripko  30.05.2019 00:50
Для хранения инфлрмации о цвете одного пикселя требуется 5 бит. сколько цветов в этом случае может быть отображено на экране?...
лена2611 лена2611  15.12.2019 18:24
Составить программу: даны три числа, найти их произведение и сумму. дополнительно: дана длина ребра куба. найти площадь грани, площадь полной поверхности и объем этого...
staennayanina staennayanina  15.12.2019 18:26
1) определите одно имя. поля базы данных. 2)определите количество записеи в базе данных.​...
арсений201 арсений201  02.06.2020 11:35
Решите графически уравнение: 1) (1/2)^x=x+3 2) 3^x=-x+4 3) √x=-2x+10 4) log2 x=-1/2x+2 5) √x=x^2...

Популярные вопросы