Как сложить все элементы одномерного массива в Pascal?
Answers & Comments
AleksShabanov
Program P1; var a: array [1..50] of integer; {Переменная а - одномерный массив в 50 элементов}; S, I : integer; {Переменная S - сумма элементов, I - счетчик цикла} begin randomize; {включаем генератор случайных чисел}; S:=0; {Обнуляем значение суммы} for I:=1 to 50 do {цикл в 50 повторений} begin a[i]:=random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100;100]} S:=S+a[i]; {Добавляем каждый элемент к значению суммы} end; wrilteln('Сумма всех элементов ', S); {выводим значение суммы} end;
Answers & Comments
var
a: array [1..50] of integer; {Переменная а - одномерный массив в 50 элементов};
S, I : integer; {Переменная S - сумма элементов, I - счетчик цикла}
begin
randomize; {включаем генератор случайных чисел};
S:=0; {Обнуляем значение суммы}
for I:=1 to 50 do {цикл в 50 повторений}
begin
a[i]:=random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100;100]}
S:=S+a[i]; {Добавляем каждый элемент к значению суммы}
end;
wrilteln('Сумма всех элементов ', S); {выводим значение суммы}
end;