1.Заполнить массив случайными числами. Вывести элементы массива на экран. Заменить все его минимальные элементы нулями.

PascalABC.

program q178036090_1;
var
 i, m: integer;
 a: array of integer;
begin
 Randomize;
 SetLength(a, Succ(Random(20)));
 for i := Low(a) to High(a) do
 begin
  a[i] := Random(100) - 50;
  Write(a[i]:4);
  if i = Low(a) then
   m := a[i]
  else
   if a[i] < m then
    m := a[i];
 end;
 WriteLn;
 for i := Low(a) to High(a) do
 begin
  if a[i] = m then
   a[i] := 0;
  Write(a[i]:4);
 end;
end.

program q178036090_2;
var
 i, k: integer;
 a: array [1..5] of integer;
begin
 Randomize;
 k := 0;
 for i := Low(a) to High(a) do
 begin
  a[i] := Random(10);
  Write(a[i]:2);
  if a[i] > 5 then
   Inc(k);
 end;
 WriteLn(#13#10'> 5: ', k);
end.

program q178036090_3;
var
 i, m: integer;
 a: array of integer;
begin
 Randomize;
 SetLength(a, Succ(Random(20)));
 for i := Low(a) to High(a) do
 begin
  a[i] := Random(100) - 50;
  Write(a[i]:4);
  if i = Low(a) then
   m := a[i]
  else
   if a[i] < m then
    m := a[i];
 end;
 WriteLn(#13#10'MIN: ', m);
end.

program q178036090_4;
var
 i, n, x: integer;
 a: array of integer;
begin
 Randomize;
 SetLength(a, Succ(Random(20)));
 for i := Low(a) to High(a) do
 begin
  a[i] := Random(100) - 50;
  Write(a[i]:4);
  if i = Low(a) then
  begin
   n := a[i];
   x := a[i];
  end
  else
  begin
   if a[i] < n then
    n := a[i];
   if a[i] > x then
    x := a[i];
  end;
 end;
 WriteLn;
 for i := Low(a) to High(a) do
 begin
  if a[i] = n then
   a[i] := x;
  Write(a[i]:4);
 end;
end.

program q178036090_5;
var
 i, p: integer;
 a: array [1..5] of integer;
begin
 Randomize;
 p := 1;
 for i := Low(a) to High(a) do
 begin
  a[i] := Random(10);
  Write(a[i]:2);
  if a[i] in [5, 8] then
   p := p * a[i];
 end;
 WriteLn(#13#10'Произведение: ', p);
end.

На обычный паскаль, чисто символически, за 100р подправлю. Учить надо!

for i:=1 to 5 do begin
a[i]:=random(10);
write(a[i]:4); end;
writeln;
а что у тебя не получается, все? Тут только помогают бесплатно, а не делают всю программу от начала до конца

паскаль

3-е -вывод минимального числа
Program Zadanie_3;
const
n = 10; {кол-во элементов Массива, можно изменить}
type
TMas1 = array [1..n] of integer;
var
m, i, c, d, r, k: integer;
x: TMas1;
begin
m:=0;
write('Массив - ');
for i:= 1 to n do
begin
m:=random(9); {9 можно изменить, например на 100}
x[i]:=m;
write(m, ' ');
end;
writeln;

d:=x[1];
r:=0;
for k:=2 to n do
begin
c:=x[k];
r:=x[k]-d;
if (r<0) then
d:=x[k];
end;
writeln('min = ', d);
end.

для начала на каком ЯП?