Проверить задание по информатике. Нужно составить программу в среде PascalABC.NET, где: Задано N (количество) целых чисел. Вычислить сумму положительных числе среди этого набора (цикл for)
Так
program sum
use
crt
va
n, i: integer
summa, l: real
begi
write('Введие кол-во вводимых чисел: ')
read(n)
summa := 0
for i := 1 to n d
begi
write('Введите число №', i, ' :')
read(l)
if l > 0 then summa := summa + l
end
write('Сумма положительных чисел равна:', summa)
writeln
end.
Проверить задание по информатике. Нужно составить программу в среде PascalABC.NET, где: Задано N (количество) целых чисел. Вычислить сумму положительных числе среди этого набора (цикл for)
Так
program sum
use
crt
va
n, i: integer
summa, l: real
begi
write('Введие кол-во вводимых чисел: ')
read(n)
summa := 0
for i := 1 to n d
begi
write('Введите число №', i, ' :')
read(l)
if l > 0 then summa := summa + l
end
write('Сумма положительных чисел равна:', summa)
writeln
end.
Так
program sum
use
crt
va
n, i: integer
summa, l: real
begi
write('Введие кол-во вводимых чисел: ')
read(n)
summa := 0
for i := 1 to n d
begi
write('Введите число №', i, ' :')
read(l)
if l > 0 then summa := summa + l
end
write('Сумма положительных чисел равна:', summa)
writeln
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
Да, программа верно составлена. Она запрашивает у пользователя количество вводимых чисел, затем в цикле считывает каждое число и если оно положительное, добавляет его к общей сумме положительных чисел. В конце программа выводит сумму положительных чисел.