Задать вопрос Регистрация
Помочь другим

  • задать одномерный массив 20 целых чисел из [-5 1] и вывести его на экран

    найти сумму всех элементов массива

     

Ответы 1

  • unit math;

    program chisla;

    var

      a: array[1..20] of intteger;

      i,s:integer;

    Begin

      s:=0;

      for i:=1 to 20 do begin

       a[i]:=randomRange(-5,1);

       write(' ',a[i]);

       s:=s+a[i];

     end;

    readln;

    writeln('Сумма элементов массива= ',s);

    End.

    • Автор:

      jamie95ig
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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