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

Ответы 7

  • Фи, Делфи...
    • Автор:

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

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

      baronpzih
    • 6 лет назад
    • 0
  • вообше "Фи, паскаль", но кто меня спрашивает(
    • Автор:

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

      lana35
    • 6 лет назад
    • 0
  • 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.
    • Автор:

      eleinhiu1
    • 6 лет назад
    • 0
  • 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 img
    • Автор:

      deannoib
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years