Question

C клавиатуры вводится N чисел.Определить сумму положительных чисел. Через циклы в паскале

Answer 1

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses  System.SysUtils;
var n, a, i, sum:integer;
begin
  sum := 0;
  write('Enter n: ');
  readln(n);
  for i := 1 to n do
  begin
    write('Enter ',i , ' number: ');
    readln(a);
    if a > 0 then
      sum := sum + a;
  end;
  writeln('Sum of positive numbers: ', sum);
  readln; // Чтобы консоль не закрывалась
end.

Answer 2

Фи, Делфи...

Answer 3

вообше "Фи, паскаль", но кто меня спрашивает(

Answer 4

Если паскаль - он "фи вообще", напишите короче и эффективнее моего ответа в комментарии (того, "однострочного") на любом выбранном Вами языке.

Answer 5

PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (s,n):=(0,ReadInteger('n='));
  loop n do begin
    var t:=ReadInteger;
    if t>0 then s+=t
    end;
  Writeln('Сумма положительных чисел равна ',s)
end.

Answer 6

А без дурацких тут циклов решение фактически однострочное

Answer 7

begin
Writeln('Сумма положительных чисел равна ',ReadSeqInteger(ReadInteger('n=')).Where(t->t>0).Sum)
end.