помогите написать программки Безотлагательно Pascal abc1.сначала вводится кол-во чисел, а затем

Творенье всех чисел, кратных 5? Без ограничений? Ну тогда это бесконечность

отрицательных

Ну минус бесконечность - сущности не меняет

почему минус бесконечность если использовать целочисленный тип интеджер то там как я знаю макс число 30000 и вроде можно посчитать

В условии ничего не сказано о том, СКОЛЬКО вводится чисел, поэтому: от -1 до минус бесконечности. Нету в условии ограничения на колечество

а вторую как написать?

там в первой быстрее всего с клавиатуры поначалу вводится кол-во чисел, а потом сами числа

Во второй то же самое. А про количество - надобно в условии указывать. То, что на данный момент записано в задании - решить нельзя.

означает там в обоих условие начала вводится кол-во чисел, а потом сами числа

1-ая программка:

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 lt; 0) then S:=S+A;
    End;
WriteLn('S = ',S);
End.


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

N = 5
-5
10
15
-25
17
S = -30



2-ая программка:

Var
   A,N,k:integer;
Begin
k:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    Read(A);
    A:=Абс(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