Мне кажется, лучшее время для наблюдения звезд это ясная ночь. Например, в этом августе было много таких ночей, когда можно было увидеть множество созвездий, звездопад и Млечный Путь. Конечно же, это зависит от расположения, то есть места, где вы живете.
Program xax;
var i:shortint;
a,b: array [-10..10] of byte;
begin
randomize;
for i:=-10 to 10 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
for i:=-10 to -1 do
b[i]:=a[-11-i];
for i:=1 to 10 do
b[i]:=a[11-i];
b[0]:=a[0];
for i:=-10 to 10 do
write(b[i],' ');
<span>end.</span>
Var
best, m, s,i: integer;
begin
best := 10000000;
for i:= 1 to 3 do begin
write('min sec = ');
readln(m, s);
if best > m * 60 + s then best := m * 60 + s;
end;
writeln('Лучший = ', best div 60, ' min ', best mod 60, ' sec');
end.
var
i:integer;
begin
for i:=60 to 70 do write (chr(i),' ');
readln;
end.
Мдигтоьмпттмно иотмрльмпь иолмпотиир полипропилен ьтолллдь