Составьте программу вычисления суммы элементов одномерного массива А(N), меньших N....

Question

Составьте программу вычисления суммы элементов одномерного массива А(N), меньших N. Заполнить массив случайным образом.

Answer 1

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,0,2*n); a.Println;
  Writeln('Искомая сумма равна ',a.Where(x->xend.

Тестовое решение:
n= 15
4 10 11 17 16 2 26 19 26 5 21 26 9 18 11
Искомая сумма равна 52

Answer 2

Const m=100;
var a:array[1..m] of integer;
n,i,s:integer;
begin
writeln('Введите n<=100:'); <br>readln(n);
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(50);
 write(a[i]:4);
 end;
writeln;
s:=0;
for i:=1 to n do
 if a[i]writeln('s=',s);
end.

Пример:
Введите n<=100:<br>10
   2  25  36  36  35   3   1  20  37  32
s=6

Comments

Прошу прощения, а почему сумма получилась равная 6?

---

По условию

---

Все поняла

---

Откуда эти числа?) Введите n<=100: 10 2 25 36 36 35 3 1 20 37 32

---

Пример: Введите n<=100: 10 2 25 36 36 35 3 1 20 37 32

---

О как все запущено....

---

Я поняла, что это элементы массива, но какая последовательность?

---

Случайная конечно же!

---

У Вас же в условии указано: ЗАПОЛНИТЬ СЛУЧАЙНЫМ ОБРАЗОМ

---

Вы не читаете то, что пишете?