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

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

  1. Ответ
    Ответ дан WTFololo

    var
    s,p:int64;
    i,kol,m:integer;
    a:array of integer;
    begin
    readln(kol);
    s:=0;
    p:=0;
    m:=0;
    setlength(a,kol);
    for i := 1 to kol do
    begin
    read(a[i]);
    s:=s+a[i];
    p:=p*a[i];
    end;
    m:=s div kol;
    writeln('Сумма ',s);
    writeln('Произведение',p);
    writeln('Среднее значение',m);

    end.

Самые новые вопросы