• Заполнить массив из 10 элементов случайным образом вещественными значениями, лежащими в диапазоне от -50 до 50. найти сумму всех элементов массива. увеличить все элементы в 5 раз.

Ответы 1

  • //Pascal ABC.NET v3.1 сборка 1219Const n=10; Var ar:array[1..n] of integer; sum,i:integer;begin randomize; writeln('First array:'); for i:=1 to n do  begin   ar[i]:=random(-50,50);   write(ar[i]:4);   sum:=sum+ar[i];  end; writeln; writeln('Sum=',sum); writeln('Final array:'); for i:=1 to n do  begin   ar[i]:=ar[i]*5;   write(ar[i]:6);  end;end.Пример работы программы:First array:  24  45  28  40 -48  -7  29  43 -23  18Sum=149Final array:   120   225   140   200  -240   -35   145   215  -115    90
    • Автор:

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

Войти через Google

или

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

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

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