Сформировать одномерный массив целых чисел М2, состоящий из некратными числу N четным элементам массива М

[ROMA2PVT]

http://www.cyberforum.ru/pascal/thread79152.html
вот похожая на первую.

[Izymka]

Сообщение от ROMA2PVT

-III-

program matr;
uses
   crt;
var
    mas:array [1..100] of integer;
    i,n,j,min,imin:integer;
begin
randomize;
write('Введите количество элементов: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
  end;
writeln;
min:=mas[1];
imin:=1;
for i:=1 to n do
if mas[i]<min then
begin
 min:=mas[i];
 imin:=i;
end;
writeln ('MIN[',imin,']:=',min);
writeln;
for i:=imin to n-1 do
begin
mas[i]:=mas[i+1];
end;
writeln('Массив после удаления: ');
for i:=1 to n-1 do
begin
write(mas[i]:4);
end;
writeln;
 end.

подскажите как изменить программу что бы массив задавался с клавиатуры?!

[Izymka]

ааа!! ура!! сама додумалась!!! )))))))
вот:

program matr;
uses
   crt;
var
    a:array [1..100] of integer;
    i,n:byte;
    min,imin:integer;
begin
write('Введите количество элементов: ');
read(n);
write('a[1]=');read(a[1]);
min:=a[1];
for i:=2 to n do
 begin
write('a[',i,']=');read(a[i]);
imin:=1;
end;
for i:=2 to n do
if a[i]<min then
begin
 min:=a[i];
 imin:=i;
end;
writeln('MIN[',imin,']:=',min);
write;
for i:=imin to n-1 do
a[i]:=a[i+1];

writeln('Массив после удаления: ');
for i:=1 to n-1 do
begin
write(a[i]:4);
end;
write;
 end.