Найти сумму положительных чисел - Pascal ABC

Формулировка задачи:

Вводиться последовательность из N целых чисел. Найти сумму положительных чисел.
uses crt;
var n,i,a,s:integer;
begin
write('n>0 n=');
read(n);
writeln('Введите ',n,' целых цисел');
s:=0;
for i:=1 to n do
 begin
  read(a);
  if a>0 then s:=s+a;
 end;
write('Сумма положительных чисел=',s)
end.

Код к задаче: «Найти сумму положительных чисел - Pascal ABC»

textual
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Windows;
 
var n,i,a,s:integer;
begin
SetConsoleCP(1251);
SetConsoleOutPutCP(1251);
//когда запустишь и появится консоль:
//правой кнопкой мыши --> Свойства --> Шрифт --> Lucida Console
 
write('n>0 n=');
read(n);
writeln('Введите ',n,' целых цисел');
s:=0;
for i:=1 to n do
 begin
  readln(a);
  if a>0 then s:=s+a;
 end;
write('Сумма положительных чисел=',s);
readln
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 3.846 из 5


СОХРАНИТЬ ССЫЛКУ