В массиве хранятся сведения о количестве осадков, выпавших за 10 дней июня. Написать программу, которая определяет общее количество осадков за 10 дней. Массив должен вводиться во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы: Введите в одной строке элементы массива (10 чисел) и нажмите - > 12 0 10 22 0 0 0 10 0 0 Общее количество осадков за 10 дней: 54

program zz1;

const n = 10; / / задаем количество элементов в массиве

var i, s:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

write (' Введите в одной строке элементы массива (10 чисел) и нажмите - > ');

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

read (m[i]);

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

s:=s + m[i]; / / получаем сумму

write (' Общее количество осадков за 10 дней = ', s); / /выводим ответ

end.