• Напишите программу заполнения одномерного массива любым способом и
    найдите сумму всех элементов.

     

Ответы 1

  • constn=10;vara:array[1..n] of real;Sum:real;i:byte;beginwriteln('Введите числа');for i:=1 to n doread(a[i]);sum:=a[1];for i:=2 to n dosum:=sum+a[i];writeln('Сумма равна = ', sum);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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