profile
Опубликовано 6 лет назад по предмету Информатика от ksenia19991999

Дан массив из 5 чисел,имя массива х,вычислить сумму элементов массива,произведение и найти частное от деления произведения на сумму.На экран вывести результаты(сумму,произведение и частное).Помогите пожалуйста,срочно!

  1. Ответ
    Ответ дан Gleb1Kosyrev
    var x:array[1..5] of integer;
    an:real;
    pr,sum,i:integer;
    begin;
    pr:=1;
    for i:=1 to 5 do
    readln(x[i]);
    for i:=1 to 5 do
    sum:=sum+x[i];
    for i:=1 to 5 do
    pr:=pr*x[i];
    an:=pr/sum;
    writeln('Сумма:',sum);
    writeln('Произведение:',pr);
    writeln('Частное:',an);
    end.
Самые новые вопросы