Для N,введённых с клавиатуры чисел найти сумму положительных,кратных 3

[Esmadjin]

Написать программу на языке pascalABC.NET (С помощью цикла параметра for ) Для N,введённых с клавиатуры чисел найти сумму положительных,кратных 3

[newerow1989]

const n = 5;
var p: array[1..n] of integer;
    i, s: integer;
begin
   for i:=1 to n do
   begin
      Write('p[', i, '] = ');
      Readln(p[i]);
   end;
   Writeln;
   s:=0;
   for i:=1 to n do
      if (p[i]>0) and (p[i] mod 3=0) then
         Inc(s, p[i]);
   Writeln('s = ', s);
   Readln;
end.

[digitalis]

Можно в одном цикле - рассматриваем каждое введённое число.

const n = 5;
var p: array[1..n] of integer;
    i, s: integer;
begin
   s:=0;
   for i:=1 to n do
   begin
      Write('p[', i, '] = ');
      Readln(p[i]);
      if (p[i]>0) and (p[i] mod 3=0) then
         Inc(s, p[i]);
   end;
   Writeln;
   Writeln('s = ', s);
   Readln;
end.

[Arigato]

Сообщение от digitalis

Можно в одном цикле

Тогда тут и массив не нужен.

[digitalis]

Не, пускай будет, если рассматривать как часть задачи. Посчитали сумму и пошли дальше обрабатывать массив.