• С клавиатуры ввести массив А (Б). Найти сумму всех элементов массива. Вывести ее на экран, и массив опять

Ответы 1

  • var

     a:array [1..1000000] of longint;

    N,S,i:longint;

    begin

     Readln(N);

     For i:=1 to N do begin Read(a[i]); S:=S+a[i]; end; Readln;

    Writeln(S);

     For i:=1 to N do Write(a[i],' ');

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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