Подключить задачу с помощью ^ Опции

[6ac9k]

uses crt;
var b,a:array [1..100] of integer;
c,n,i:integer;
begin
clrscr;
writeln ('vvedite koli4estvo elementov :');
readln (n);
for i:=1 to n do
begin
writeln ('vvedite ',i,' element :');
readln (a[i]);
end;
c:=0;
for i:=1 to n do
begin
if a[i]<>0 then
 begin
  inc(с );
  b[c]:=a[i];
 end;
end;
for i:=c+1 to n do
begin
b[i]:=0;
end;
for i:=1 to n do
begin
write(b[i]);
end;
readkey;
end.

Нужно обратиться к ней с помощью ^
У меня бред получается..просто плохо соображаю..не могу нигде книгу скачать бесплатно по Паскалю..
Конспекта видно мало..

В общем у меня вот такой бред получился:

uses crt;
type T=array[1..100] of integer;
type G=array[1..100] of integer;
var
b:^T;
a:^G;
c,n,i:integer;
begin
clrscr;
writeln ('vvedite koli4estvo elementov :');
readln (n);
getmem(a,sizeof(integer));
getmem(b,sizeof(integer));
for i:=1 to n do
begin
writeln ('vvedite ',i,' element :');
readln (a^[i]);
end;
c:=0;
for i:=1 to n do
begin
if a^[i]<>0 then
 begin
  inc(с );
  b^[c]:=a^[i];
 end;
end;
for i:=c+1 to n do
begin
b^[i]:=0;
end;
for i:=1 to n do
begin
write(b^[i]);
end;
readkey;
end.

Что-то не сходится

М

6ac9k, используй теги! Lapp

[Bokul]

У меня бред получается..просто плохо соображаю..не могу нигде книгу скачать бесплатно по Паскалю..

Не разочаровывайся, посмотри вверх, найди 3-ох буквенное слово FAQ и смело дави на него. Все бесплатно.
А что этот

бред

должен делать?
Мене он выдает тот же результат, что и его безшапочный собрат.

Сообщение отредактировано: Bokul - 19.12.2006 4:18

[6ac9k]

[Bokul]

Ясно, проблема возникает когда один с элементов равняется 0. Сейчас исправим.

[Bokul]

getmem(a,sizeof(integer));
getmem(b,sizeof(integer));

Поменяй на

getmem(a,sizeof(T));
getmem(b,sizeof(G));

И в самом конце поставь

dispose(a);
dispose(b);

Ведь нехорошо не отдавать то, что взял..

[6ac9k]

ГоТоВо!