Паскаль Составить программы

[StepaNdr]

Здраствуйте, доброго времени суток, учусь в 10 классе и пропустил тему массивы, а задали 5 задачек решить и не получается что-то.. вот собственно и они:

1. Составить программу нахождения натурального наибольшего среди тех элементов массива, что лежат в интервале от C по D (интервал я задаю сам)

2. СП вычисления суммы массива встречающихся в этом массиве 2 раза.

3. СП вычисления разности между max и min элементом массива.

4. СП замены в массиве нулевых элементов массива на квадрат певого элемента

5. СП подсчёта чисел наименьших по модулю элементов массива.

Заранее спасибо.. .

[ROMA2PVT]

-III-

program matr;
uses
   crt;
var
    mas:array [1..100] of integer;
    i,n,imin,imax,min,max,razn:integer;
begin
clrscr;
imax:=1;
imin:=1;
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
  if mas[i]>mas[imax] then
  begin
  imax:=i;
  end
  else
  if (mas[i]<mas[imin]) then
  begin
  imin:=i;
  end;
  end;
writeln;
writeln('MAX[',imax,']:=',mas[imax]);
writeln('MIN[',imin,']:=',mas[imin]);
razn:=mas[imax]-mas[imin];
writeln('Разность между MAX и MIN:=',razn);
 end.

-IV-

program matr;
uses
   crt;
var
    mas:array [1..100] of integer;
    i,n:integer;
begin
clrscr;
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
 begin
  mas[i]:=random(5)-2;
  write(mas[i]:4);
  if mas[i]=0 then
 begin
 mas[i]:=sqr(mas[1]);
 end;
  end;
  writeln;
 for i:=1 to n do
 begin
 write(mas[i]:4);
 end;
 writeln;
 end.

[StepaNdr]

ROMA2PVT, Спасибо большое