одномерные массивы. паскаль

[~anutik~]

помогите пожалуйста решить задачки. язык программирования паскаль
1)задан массив а размерности n, содержащий несколько нулевых элементов.все нулевые элементы нужно поставить в конец строки .
2)дан одномерный массив а размерности 2n. найти max (a1+a2n;a2+a2n-1;...;an+an+1)
примечание: все что рядом с а это индексы
заранее большое спасибо

[ROMA2PVT]

Const
n=10;
var
i,j:integer;
a:array[1..100]of integer;
begin
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
begin
a[i]:=random(15);
end;
writeln;
for i:=1 to n do
begin
write(a[i],' ');
end;
writeln;
for i:=n downto 1 do
if a[i]=0 then
begin
for j:=i to n do
a[j]:=a[j+1];
a[n]:=0;
end;
writeln('Результирующий массив: ');
for i:=1 to n do
begin
write(a[i],' ');
end;
writeln;
writeln;
readln;
end.

Первая.

[~anutik~]

большое спасибо, все работает)

[ROMA2PVT]

ХеХ!Ещёб не работало то.

[~anutik~]

а вторую как решить, не подскажите?:-[

[ROMA2PVT]

http://www.cyberforum.ru/pascal/thread101893.html
Глянь вроди она.

[exotiz]

помогите пожалуйста доделать программу
дано:массив "а" .найти наименьшее значение. учесть возможные повторения минимума, т.е. получить массив из позиций минимальных элементов.
минимум я нашёл , а вот как составить массив из этих минимумов додумать не могу
type mas=array[1..30] of integer;
var b,a:mas;
i,x:integer;
begin
writeln('введите размер массива');
readln(x);
for i:=1 to x do
readln(a[i]);
min:=a[1];
for i:=2 to x do
if a[i]<min then
min:=a[i];
writeln(min);
readln
end