Вопрос Нужна помощь в паскале!!!

[doomed]

Дан массив из 10 элементов. Выкинуть из него элементы кратные номеру наименьшего элемента.
ПАСКАЛЬ!!!

 

[kolibr]

Конечно поможем!! А в чем именно??!! Что непонятно?!!! В чем затруднения?!!!

 

[artemzukov]

вначале ищешь номер мин. элемента, потом в цикле ищешь кратные и переписываешь в другой массив не совпавшие

 

[Whispering]

Дан массив из 10 элементов. Выкинуть из него элементы кратные номеру наименьшего элемента.
ПАСКАЛЬ!!!

[THIDE="0"]const n=10;
var a:array [1..n]of integer;
var b:array [1..n]of integer;
i,k,s:byte;
max,min:integer;
begin
randomize;
max:=a[1];
for i:=1 to n do
begin
a:=random(50)+1;
b :=0;
write(a:4);
if max<a then max:=a;
end;
writeln;


min:=a[1];
for i:=1 to n do
if min>a then min:=a;
writeln('max=',max,' min=',min);
writeln;

for i:=1 to n do
begin
if (amod min =0) then k:=k+1;
if (amod min =0)and (i=1) then a:=a+max;
write(a:4);
end;
writeln;

writeln('количество элементов кратных наименшему =',k);
s:=1;
for i:=1 to n do
begin

if ((a mod min)<>0) then
begin
b:=a;
s:=s+1;
end;
end;
writeln('Элементы не кратные минимальному');
for i:=1 to s-1 do

write(b:4, '' );

readln;


end.[/THIDE]