задачи на массивы. язык паскаль, дельфи консольная.

[ArsGo]

все задачи кроме второй

[Don Karleone]

может вам во фриланс?

[ArsGo]

всмысле???

[andik]

В смысле за деньги.

[Don Karleone]

в смысле что своих наработак у вас нет. А значит скорее всего во фриланс. Или наработки показывайте.

[ArsGo]

не спасибо во фриланс не надо, сейчас покажу

[Mad_Cat]

обращайтесь! сделаю за денюжку!
контакты в подписи

[ArsGo]

program Project04a;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
a:array[1..1000] of integer;
b,j,i,n,x,imin,l:integer;
begin
l:=0;
read(n);
for b:=1 to n do
read (a[b]);
for j:= 1 to n do
begin
imin:=j;
for i:=j to n do
begin
if a[i]<a [imin] then
imin:=i;
end;
x:=a[j];
a[j]:=a[imin];
a[imin]:=x;
end;
for b:=1 to n do
writeln (l);
readln;readln;
end.
куда счетчик вставлять не врубаю,
program Project04b;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
a:array[1..1000] of integer;
i,j,n,b,x,l:integer;
begin
l:=0;
read (n);
for b:=1 to n do
read (a[b]);
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>a[j+1] then
begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x;
l:=l+1;
end;
writeln(l);
readln;readln;
end.
б сделал

program Project04c2;
{$APPTYPE CONSOLE}
uses
SysUtils;

var
a,b:array[1..1000] of integer;
i,j,n,x,l,k,o,c,d,r:integer;
fl:boolean;
begin
fl:=true;
r:=0;
read (n);
for o:= 1 to n do
read(a[o]);
for l:=1 to n do
a[l]:=b[l];
for c:=1 to n do
for d:=1 to n-1 do
if b[d]>b[d+1]
then begin
x:=b[j];
b[j]:=b[j+1];
b[j+1]:=x;
r:=r+1;
end;
if r>0 then begin
for i:=1 to n do begin
for j:=i downto 2 do begin
if a[j]<a[j-1] then begin
x:=a[j-1];
a[j-1]:=a[j];
a[j]:=x;
end
else break;
end;
writeln(a[n]);
end;end;
readln;readln;
end.
где выводить не знаю, остальные 3 задачи вообще не догоняю

[Don Karleone]

что-то я даже условия скачать не смог.

[ArsGo]

куда ж тогда можно скинуть? а то текст большой и с пдф не копируешь