Задача на ссылочные типы данных Опции

[Eskel]

Вот задача:
Используя динамическое размещение последовательности вещественных чисел A1,A2…An, преобразовать исходную последовательность, добавив нулевые элементы после каждого отрицательного.

program Zadacha_1;

type
   ptr=^arr;
   arr=array[1..100] of real;


var
   p:ptr;
   q,i:word;
   v:real;
begin
   new(p);
   writeln('Enter qantity of elements');
   readln(q);
   for i:=1 to q do
   begin
      writeln('Enter value of ',i,' element');
      readln(p^[i]);
   end;
   writeln;
   writeln('The list before processing:');
   for i:=1 to q do
      write(p^[i]:4 :2,', ');
   writeln;
   writeln('The list after processing:');
   {for i:=1 to q do
   begin
      if p^[i]<0 then p^[i+1]:=0;
      write(p^[i]:4 :2,', ');
   end;}
   dispose(p);
   readln;
end.

Помогите, пожалуйста, написать сам цикл по добавлению нулей после отрицательных элементов

Сообщение отредактировано: volvo - 12.01.2009 14:22