завтра зачет трубы горят

[madelion74]

Завтра нужно сдать программу, они сделаны, нужно описать программу что-где где цикл, что создаем выводим и т.д и т.п Пожалуйста помогите, заранее всем большое спасибо за помощь , с наступающим всех
1) Осуществить сжатие массива А(50), удалив из него все отрицательные элементы.

uses crt;
var a:array[1..50]of integer;
n,i,j:integer;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Massiv:');
for i:=1 to n do
begin
a[i]:=random(10)-4;
write(a[i],' ');
end;
writeln;
i:=1;
while i<=n do
begin
if a[i]<0then
begin
for j:=i to n-1 do
a[j]:=a[j+1];
n:=n-1;
end
else i:=i+1;
end;
writeln('Rezultat:');
for i:=1 to n do
write(a[i],' ');
readln
end.

2) Дан одномерный массив А(размерностью N). Разработать алгоритм выбора элементов, встречающихся в массиве А более одного раза.

program sdasd;
uses
crt;
const
N=10;
var
a:array[1..N]of integer;
i,j,k:integer;
fl:boolean;
begin
ClrScr;
WriteLn('Array:');
for i:=1 to N do
begin
a[i]:=random(10)-5;
write(a[i],' ')
end;
WriteLn;
WriteLn('Result:');
for i:=1 to N-1 do
for j:=i+1 to N do
if a[i]=a[j] then
begin
fl:=true;
for k:=i downto 1 do
if (a[k]=a[i]) and (i<>k) then
begin
fl:=false;
break
end;
if fl then
Write(a[i],' ');
break
end;
WriteLn
end.

[ByAlex]

Как вы будете сдавать зачет, если даже этого не знаете?