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

  • найти сумму элементов целочисленного массива. помогите пожалуйста программу составить на паскале

Ответы 1

  • var k:array[1..10] of integer;

    var s:real;

    var i:integer;

     

    begin

    for i:=1 to 10 do begin

    k[i]:=round(10*random+3);

    s:=s+k[i];

    end;

    write('Сумма массива = ', s);

    writeln

    end.

     

    Должно работать, проверьте.

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

Еще вопросы

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

Войти через Google

 или

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

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

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