===== PascalABC.NET =====
begin
var B := ArrRandom(20, -99, 99);
B.Println;
Println('min =', B.Min)
end.
function Время_дня(час) {
alert(час < 4 ? "Ночь" : час < 12 ? "Утро" : час < 16 ? "День" : час < 23 ? "Вечер" : "Ночь");
}
a=input()
spisok0=a.split()
spisok1=[]
schet=0
for i in range(len(spisok0)):
print(schet)
print(spisok0)
if int(spisok0[schet]) == 0:
spisok1.append(0)
del spisok0[schet]
schet-=1
schet+=1
print(spisok0,spisok1)
Uses graphABC;
const
c: array [1..7, 1..3] of byte = ((50, 50, 133), (0, 0, 255), (0, 160, 227), (0, 255, 0), (255, 255, 0), (239, 127, 26), (255, 0, 0));
var
i: byte;
procedure ColArc(x, y: integer; r: integer; nc: byte);
begin
SetPenColor(rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
Arc(x, y, r + 10, 0, 180);
Arc(x, y, r - 10, 0, 180);
line(x - r - 11, y - 2, x - r + 11, y - 2);
line(x + r - 11, y - 2, x + r + 11, y - 2);
floodfill(x, y - r, rgb(c[nc, 1], c[nc, 2], c[nc, 3]));
end;
begin
setwindowsize(500, 300);
for i := 1 to 7 do
ColArc(250, 300, 100 + (i * 20), i);
end.