Необходимо разработать программу, реализующую работу со стеком очередью. Программа должна содержать функции вставки, извлечения, контроля на переполнение, контроля на отсутствие элементов (пустой стек или очередь), отображения на экране значения извлекаемого элемента.(С++) и желательно с блок схемой
a:array[1..10]of integer;
i,n,k:integer;
begin
readln(n);
for i:=1 to 10 do
begin
read(a[i]);
if a[i]< 0 then
a[i]:=n;
end;
for i:=1 to 10 do
write(a[i],' ');
end.
2)
var
a:array[1..999999]of integer;
i,n,s:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(36)-15;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if abs(a[i])>10 then
write(a[i],' ');
end.
3)
var
a:array[1..999999]of integer;
i,n,s:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(36)-15;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
begin
if i mod 3 = 0 then
if a[i]<0 then
a[i]:= a[i]*a[i]*a[i];
write(a[i],' ');
end;
end.