помогите написать программы СРОЧНО Pascal abc
1.сначала вводится кол-во чисел, а затем сами числа вычислить сумму числ не оканчивающихся на 0, кратных 5 отрицательных
2.сначала вводится кол-во чисел, а затем сами числа вычислить произведение чисел кратных 3, оканчивающихся на 6 или 9

Вопрос школьника по предмету Информатика

помогите написать программы СРОЧНО Pascal abc
1.сначала вводится кол-во чисел, а затем сами числа вычислить сумму числ не оканчивающихся на 0, кратных 5 отрицательных
2.сначала вводится кол-во чисел, а затем сами числа вычислить произведение чисел кратных 3, оканчивающихся на 6 или 9

Ответ учителя по предмету Информатика

Первая программа:

Var

   N,A:integer;

   S:real;

Begin

S:=0;

Write(‘N = ‘);ReadLn(N);

For N:= 1 to N do

    Begin

    Read(A);

    if (A mod 5 = 0)and(A mod 10 < 0) then S:=S+A;

    End;

WriteLn(‘S = ‘,S);

End.

Пример работы программы:

N = 5

-5

10

15

-25

17

S = -30

Вторая программа:

Var

   A,N,k:integer;

Begin

k:=0;

Write(‘N = ‘);ReadLn(N);

For N:= 1 to N do

    Begin

    Read(A);

    A:=Abs(A);

    if (A mod 3 = 0)and((A mod 10 = 6)or(A mod 10 = 9)) then k:=k+1

    End;

WriteLn(‘k = ‘,k);

End.

Пример работы программы:

N = 3

756

12

39

k = 2