Дано несколько чисел. Напишите программу, вычисляющую их сумму. Сначала вводится количество чисел N, затем вводится
ровно N целых чисел. Используйте цикл for.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Канту
Var
mas: array[1 ... 99999] of integer;
n, i, sum: integer;
begin
write ('Сколько чисел? ') ;
readln (n) ;
writeln ('Введите числа:') ;
for i : = 1 to n do
begin
readln (mas[i]) ;
sum : = sum + mas[i];
end;
writeln ('Сумма = ', sum) ;
end.
mas: array[1 ... 99999] of integer;
n, i, sum: integer;
begin
write ('Сколько чисел? ') ;
readln (n) ;
writeln ('Введите числа:') ;
for i : = 1 to n do
begin
readln (mas[i]) ;
sum : = sum + mas[i];
end;
writeln ('Сумма = ', sum) ;
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
