• "Найти среднее арифметическое массива из 5 целых чисел."

Ответы 1

  • var

     x,S:Extended;

    i:longint;

    begin

     For i:=1 to 5 do begin Read(x); S:=S+x; end;

    Write(S/5);

    end.

    • Автор:

      aliagood
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years