Для N введённых к клавиатуры

[Arinaeros]

Для N введённых к клавиатуры натуральных чисел найти сумму положительных,кратных числу 3 (ИСПОЛЬЗУЯ ЦИКЛ С ПАРАМЕТРОМ FOR)

[Damyen]

Кратных какому числу?

[Arinaeros]

Damyen, числу 3,исправила

[p51x]

Так проблема в чем?

[Arinaeros]

p51x, все,разобрались,спасибо

[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.