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