Массив

program kkk;
uses crt;
var i,min:integer;
     m:array[1..25]of integer;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив: '); 
 for i:=1 to 25 do
 begin
  m[i]:=-45+random(121);
  write(m[i],' ');
 end;
 
 min:=1;
 for i:=1 to 25 do if m[i]<m[min] then min:=i;
 m[min]:=0;
 writeln('Преобразованный массив: '); 
 for i:=1 to 25 do write(m[i],' ');
 readln;
end.

uses crt;
const n=25;
var a:array[1..n] of integer;
    i,mn,imn:integer;
begin
clrscr;
randomize;
for i:=1 to n do
a[i]:=random(121)-45;
mn:=a[1];imn:=1;
for i:=1 to n do
if a[i]<mn then
 begin
  mn:=a[i];
  imn:=i;
 end;
writeln('Исходный массив');
for i:=1 to n do
if i=imn then
 begin
  textcolor(12);
  write(a[i]:4);
 end
else
 begin
  textcolor(15);
  write(a[i]:4);
 end;
writeln;
a[imn]:=0;
writeln('Результат:');
for i:=1 to n do
if i=imn then
 begin
  textcolor(12);
  write(a[i]:4);
 end
else
 begin
  textcolor(15);
  write(a[i]:4);
 end;
readln
end.

uses crt;
const n=25;
var a:array[1..n] of integer;
    i,m,j:integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(121)-45;
  write(a[i]:4);
 end;
writeln;
i:=1;m:=n;{присвоим значение n новой переменной, она будет убывать}
while i<=m do
if ((abs(a[i])>9)and(abs(a[i] div 10)=3)){если двузначное и первая цифра 3, не считая минус}
or ((abs(a[i])<=9)and(abs(a[i])=3)) then{если однозначное}
 begin
  for j:=i to m-1 do{сдвигаем конец массива к этому элементу, он исчезает}
  a[j]:=a[j+1];
  m:=m-1;
 end
else i:=i+1;
writeln('Результат:');
for i:=1 to m do
write(a[i]:4);
readln
end.