Тема: Черга
16. Створити чергу дійсних чисел, в яку спочатку ввести від’ємні числа, потім – додатні. Видалити з черги всі від’ємні числа. Вивести оновлену чергу. Видалити чергу.
. . .{Опис вузла черги дійсних чисел}
uses CRT;
type
n=^uzel;
uzel=record
x: real;
next: n;
end;
var
first: n; {Посилання на перший елемент черги}
last: n; {Посилання на останній елемент черги}
uku: n; {Посилання на довільний вузол черги}
c: char;
begin
{Введення першого елементу в чергу}
new(first); last:=first; first^.next:=nil;
writeln(‘Введите первый елемент’); readln(first^.x);
writeln(‘Хотите продолжить ввод’); readln(c);
{Формування черги в циклі дозаписом елемента в «хвіст» черги}
while c=’y’ do
begin
new(uku); last^.next:=uku;
writeln(‘Введите очередной елемент’); readln(uku^.x);
last:=uku;
writeln(‘Хотите продолжать?’); readln(c);
end;
end.З вводом черги розібрався допоможіть з рештою завдання
