Задание:
Помогите пожалуйста! В массиве хранятся сведения о количестве осадков, выпавших за 10 дней июня. Написать программу, которая определяет общееколичество осадков за 10 дней. Массив должен вводиться во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы:
Решение:
program os1; var a: array[1… 10] of integer; i,sum: integer; beginsum: =0; for i: =1 to 10 do readln (a[i]); for i: =1 to n do sum: =sum+a[i]; writeln (sum); end.
Знаете другой ответ?