Задача на циклы и на массивы

[Элис]

компилировала,но обратно в условие не возращается,приходится пользоваться Ctrl+Break
вот посмотрите пожалуйста,я перепроверяла,но может опять что-то пропустила...
код
uses crt;
const MAXN=100;
var N,i,j,k,tmp,t:integer;
A,C:array [1..MAXN] of integer;
begin
clrscr;
write ('Enter N:');
readln (N);
for i:=0 to N-1 do
readln (A[i]);
k:=-1;
for i:=0 to N-1 do
if A[i]>0 then
begin
inc (k);
C[k]:=A[i];
end;
for i:=0 to k-1 do
begin
t:=i;
for j:=i+1 to k do
if C[j]<C[t] then t:=j;
tmp:=C[i];
C[i]:=C[t];
C[t]:=tmp;
end;
writeln ('Massiv C:');
for i:=0 to k do
write (C[i],'');
readln;
end.

[Sazary]

Элис, во-первых, код заключайте в теги CODE ("#" на панели в окне редактирования).
Во-вторых, все работает.
Вы сам массив-то вводите? Или после ввода N ждете, что он сам себя введет?

[Элис]

Извините я Вам наверное надоела,если честно я первый раз работаю с массивами,извините если что не так...
я так поняла надо ввести N и нажать ентер,правильно?) только я вот никак не пойму в таком случае,если всё работает,почему у меня ОПЯТЬ выдает ошибку...) номэрик инвалид формат,номер ошибки 106...ничего не понимаю,вроде код проверила в порядке...

[Sazary]

Извините я Вам наверное надоела

Совсем нет.

я так поняла надо ввести N и нажать ентер,правильно?

Да. И после этого ввести N элементов массива.

Измените код вот так. Наверное, так вам будет понятнее.

uses crt;
const MAXN=100;
var N,i,j,k,tmp,t:integer;
A,C:array [1..MAXN] of integer;
begin
clrscr;
write ('Enter N:');
readln (N);
for i:=0 to N-1 do
 begin
 write('Enter A[',i,']: ');
 readln(A[i]);
 end;
k:=-1;
for i:=0 to N-1 do
if A[i]>0 then
begin
inc (k);
C[k]:=A[i];
end;
for i:=0 to k-1 do
begin
t:=i;
for j:=i+1 to k do
if C[j]<C[t] then t:=j;
tmp:=C[i];
C[i]:=C[t];
C[t]:=tmp;
end;
writeln ('Massiv C:');
for i:=0 to k do
write (C[i],' ');
readln;
end.

[Элис]

так код изменила,нажала Ctrl+F9,нажала N и ентер,а далее высветилось условие и опять ошибка 106 в строке readln (N); не пойму может это так и должно быть?
Вы написали:
Да.И после этого ввести N элементов массива.
у меня вопрос может и глупый,но куда его вводить,я ввела N нажала ентер ещё нужно что-то сделать или число ввести?? если,да то что и куда?)))

[Sazary]

так код изменила,нажала Ctrl+F9,нажала N и ентер,а далее высветилось условие и опять ошибка 106 в строке readln (N);

Это значит только то, что вы что-то не так делаете.
У меня никаких ошибок не выводит.

у меня вопрос может и глупый,но куда его вводить,я ввела N нажала ентер ещё нужно что-то сделать или число ввести?? если,да то что и куда?)))

Вы как N вводите? Вводите число и жмете ентер.
Также нужно ввести и элементы массива!

Вот пример ввода:

Enter N:5
Enter A[0]: 1
Enter A[1]: 2
Enter A[2]: 3
Enter A[3]: 4
Enter A[4]: 5
Massiv C:
1 2 3 4 5

-------------------
Скопируйте листинг из моего последнего поста и скомпилируйте его.
Что-то мне не нравится ваше "так код изменила". Вы его меняете, или копируете код заново.

[Элис]

ну я код вручную меняю...))
О получилось))) наконец-то))) спасибо Вам огромное!