Язык BASIC
DIM SUM AS INTEGER
CONST N = 30
DIM A(1 TO N) AS INTEGER
FOR I = 1 TO N
SUM = SUM + A(I)
NEXT I
PRINT SUM
END
Мне кажется, лучшее время для наблюдения звезд это ясная ночь. Например, в этом августе было много таких ночей, когда можно было увидеть множество созвездий, звездопад и Млечный Путь. Конечно же, это зависит от расположения, то есть места, где вы живете.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-50,50); a.Println;
var p:=a.IndexMin;
Writeln('Номер минимального элемента ',p+1,
', его значение ',a[p]);
p:=a.IndexMax;
Writeln('Номер максимального элемента ',p+1,
', его значение ',a[p]);
end.
<u>Пример</u>
40 4 40 46 45 -42 -27 30 40 -13
Номер минимального элемента 6, его значение -42
Номер максимального элемента 4, его значение 46
Данная программа выполнена для PascalABC.net, немного кривая, но полностью рабочая.
uses GraphABC;
var i:integer;
Procedure Boy(z,w:integer);
begin
rectangle(z-20,w-30,z+20,w+40);
MoveTo(z-20,w-20);
LineTo(z-35,w+15);
LineTo(z-20,w);
LineTo(z-20,w-20);
Floodfill(z-25,w,clBrown);
MoveTo(z+20,w-20);
LineTo(z+35,w+15);
LineTo(z+20,w);
LineTo(z+20,w-20);
Floodfill(z+25,w,clBrown);
Floodfill(z,w,clBlue);
MoveTo(z-10,w+40);
LineTo(z-10,w+70);
LineTo(z-3,w+70);
LineTo(z-3,w+40);
LineTo(z+3,w+40);
LineTo(z+3,w+70);
LineTo(z+10,w+70);
LineTo(z+10,w+40);
LineTo(z-10,w+40);
Floodfill(z-5,w+65,clBrown);
Floodfill(z+5,w+65,clBrown);
Circle(z,w-40,20);
Floodfill(z,w-40,clBrown);
end;
Procedure Ball(x,y:integer);
begin
circle(x,y,15);
floodfill(x,y,clRed);
end;
begin
lockdrawing;
for i:=1 to 20 do begin
boy(100,200);
Ball(100+i*5,200-i*5);
ellipse(200,115,250,140);
RedRaw;
ClearWindow(clWhite);
end;
for i:=1 to 5 do begin
boy(100,200);
Ball(200+i*5,100+i*5);
ellipse(200,115,250,140);
RedRaw;
ClearWindow(clWhite);
end;
for i:=1 to 25 do begin
boy(100,200);
Ball(225,125+i*5);
ellipse(200,115,250,140);
RedRaw;
ClearWindow(clWhite);
end;
end.
