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

найти среднее арифметическое всех средних чисел от а до в 

решение в паскале пожалуйста 

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

    Var n,s,k,i : integer;
    Begin
    writeln ('Введите кол-во чисел');
    readln (n);
    for i:=1 to n do
    begin
    writeln ('Введите ',i,' число');
    readln (k);
    s:=s+k;
    end;
    writeln ('Среднее арифметическое =',s/n:5:2);
    End.

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