Помогите, пожалуйста, решить задачку.Отыскать сумму элементов массива. Кол-во частей = 10.

Помогите, пожалуйста, решить задачку.
Отыскать сумму элементов массива. Кол-во элементов = 10. Сами элементы генерируются случайным образом на интервале [-50;50].

Задать свой вопрос
2 ответа
// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  ArrRandom(10,-50,50).Println.Sum.Println;
end.

Пример
31 19 1 -45 -14 -32 8 -46 46 -18
-50
Program n1;
var a: array[1..10] of integer;
sum,i: integer;
begin
write('массив: ');
sum:=0;
for i:=1 to 10 do
begin
a[i]:=random(101)-50;
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
write('сумма: ',sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт