Дан массив из 100 целых чисел и найти сумму элементов массива
Дан массив из 100 целых чисел и найти сумму элементов массива
Гость
Ответ(ы) на вопрос:
Гостьvar
a : array [1..100] of integer;
i, sum : integer;
begin
for i := 1 to 100 do read (a[i]);
sum := 0;
for i := 1 to 100 do sum := sum + a[i];
write (sum);
end.
Не нашли ответ?
Похожие вопросы