Question

Помогите решить первые две задачи! Язык программирования Pascal!

Answer 1

Var
   N,A,c:integer;
   S:real;
Begin
Write('N = ');
ReadLn(N);
c:=0;
For N:= 1 to N do
    Begin
    Read(A);
    if (A mod 2 <> 0)and(A mod 7 = 0) then
       Begin
       S:=S+A;
       c:=1;
       End;
    End;
if c=0 then WriteLn('Таких чисел нет')
else WriteLn('S = ',S);
End.



Var N,A,k,c:integer;
Begin
Write('N = ');ReadLn(N);
c:=0;
k:=0;
For N:= 1 to N do
    Begin
    Read(A);
    if (A mod 7 = 0)and(Abs(A) mod 10 = 2) then
       Begin
       k:=k+1;
       c:=1;
       End;
    End;
if c=0 then WriteLn('Таких чисел нет')
else WriteLn('k = ',k);
End.