Массив Паскаль!!!!!!!!

[wrmarw]

Люди, что не так в этой программе, а-а-а??? Не работает, собака!!!

Program mas;
uses crt;
const n=10;
var a: array [1..n] of integer;
i, min, s, mini: integer;
begin;
clrscr;
writeln ('vvedite elementy massiva');
for i:=1 to n do
begin
readln (a[i]);
end;
min:=a[1];
for i:=2 to n do
if min>a [i] then
begin
min:= a[i];
min:=i;
end;
S:=a [mini];
a[mini]:=a[10];
a[10]:=S;
for i:=1 to n do
write (a[i], ' ');
readln;
end.

[[CODER]]

Задание!?...

[Hacker19_90]

Либо опечатка либо ??? Но значение mini ты не меняешь!!!
min:= a[i];
min:=i;

[wrmarw]

а-а-а, нет-нет! перепутал!!! это другая!

вот в этой что-то не работает, а что, неизвестно!!!

program a;
uses crt;
var N, i, k: integer;
X, Y: array [1..20] of Real;
begin
clrscr;
write ('vvedite razmer massiva N:');
readln (n);
for i:=1 to N do
begin
write ('X[',i,']=');
readln (X[i]);
end;
k:=0;
for i:=1 to N do;
if X [i]>0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
for i:=1 to N do
if X[i]=0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
write ('Otvet:');
for i:=1 to N do
write (Y[i]:5:1);
writeln;
readkey;
end.

Здесь нужно из заданного массива получить новый такой, что в нем сначала идут положительные, затем нулевые и отрицательные числа.

что-то тут не работает, после положит. чисел идут одни нули! как это переделать??? помогите, пожалуйста!!!

[Hacker19_90]

Так у тебя нет поиска отрицательных чисел!!!!

[[CODER]]

Добавь

if X[i]<0 then
begin
k:=k+1;
Y[k]:=x[i];
end;

[wrmarw]

точняк!!!!!! спасибо огромное!!!!!

э-э-э-э-э, а куда его там вставить, а-а-а, не поможете, м-м-м...

[wrmarw]

оу, все супер!!!!!!! огромнейшее спасибо!!!!!!!!! целую долго-долго!!!!!!!

[Hacker19_90]

program a;
uses crt;
var N, i, k: integer;
X, Y: array [1..20] of Real;
begin
clrscr;
write ('vvedite razmer massiva N:');
readln (n);
for i:=1 to N do
begin
write ('X[',i,']=');
readln (X[i]);
end;
k:=0;
for i:=1 to N do;
if X [i]>0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
for i:=1 to N do
if X[i]=0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
if X[i]<0 then
begin
k:=k+1;
Y[k]:=x[i];
end;
write ('Otvet:');
for i:=1 to N do
write (Y[i]:5:1);
writeln;
readkey;
end.

[[CODER]]

for i:=1 to N do
if X[i]<0 then
begin
k:=k+1;
Y[k]:=x[i];
end;