Решите второе , надо! паскаль abc

Program NoName;

Var i,D,n,k:integer;

a:array[1..9999] of integer;

Begin

k:=0;

Read (D);

Write('Количество цифер в массиве ');

Read (n)

For i:=1 to n do

Begin

If (a[i] >0)and(a[i]< D) then k:=k+1;

End;

Write (k)

End.

Program Noname;

Var n,i:integer;

a:array[1..9999] of integer;

Begin

Read (n);

For i:= 1 to n do

Begin

If (a[i] mod 3 = 0) then

a[i] := a[3];

Write (a[i]);

End;

End.

Скажу сразу, не проверял, возможно несколько недочётов упустил, но основа есть

1. Данный фрагмент сравнивает первый элемент с последующими, начиная с второго. Если какой-то из них меньше первого, то переменной "d" присваивается индекс массива. Значение: ищет наибольший элемент массива, сравнивая с первым.

ответ: 4.

2. Делает то же самое, что и первый фрагмент, только теперь ищет минимальный элемент массива по отношению  первому.

ответ: 6.

3. На экране ничего не будет, так как отсутствует оператор вывода. Если предположить, что строка "Writeln(m);" пропущена и опустить синтаксические ошибки, то суть фрагмента - нахождение количества элементов, меньших 7. Таких элементов три.

ответ: 3.

4. Данный фрагмент суммирует элементы массива, у которых индекс больше 9. Это числа 21 и 27.

ответ: 48.

5. Находит минимальный элемент массива, по отношению к числу "30". Если элемент массива меньше 30, то переменной "m" присваивается элемент массива. 

ответ: 19.

1)

program FunctionIFfull;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4)  

 else  

     if x<=-1 then y:= sqr(x)+4*x  

     else y:=4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

2)

program FunctionIFshort;

uses crt;

var

 x, y : real;

begin

 clrscr;

 write('x = ');

 readln(x);

 if x>=1 then y:= sqrt(3*x+4);

 if x<=-1 then y:= sqr(x)+4*x;

 if (x>-1) and (x<1) then y:= 4*sqr(x)-2*x+3;

 writeln('y = ', y:8:2);

 readln;

end.

Объяснение:

1. Повна команда розгалуження має вигляд

if < логічний вираз > then <команда 1> else < команда 2 >;

2. Коротка команда розгалуження має вигляд

if <логічний вираз > then <команда 1>;