Ввести с клавиатуры массив из 5 элементов,найти сумму и творенье элементов

Ввести с клавиатуры массив из 5 частей,отыскать сумму и произведение частей этого массива.
Пример:
Введите 5 чисел : 4,15,3,10,14
среднее арифметическое: 9,200

Задать свой вопрос
Даниил Давидчук
необходимо отыскать и среднее арифметическое этих чисел?
Павел Мамулашвили
нужно найти и среднее арифметическое этих чисел?
1 ответ
Program a;
var sum,n,ymn,sred: real;
i: integer;
mas : array[1..5] of integer; 
begin
  sum:=0;
  ymn:=1;
  writeln('Укажите 5 чисел');
    for i:=1 to 5 do
      begin
          read (mas[i]); sum:=mas[i]+sum;
          ymn:=mas[i]*ymn;
          sred:=sum/5;
      end;
writeln('Сумма частей = ',sum,'  Творенье частей = ',ymn,' Среднее арифметическое = ',sred);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт