1-ый
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.
2-ой
Program Svetofor;
Uses crt;
var c:1..3;
begin clrscr;
randomize;
writeln('переход по сигналу светофора');
c:=random (3)+1;
gotoxy(35,11);
case c of
1:begin textcolor (red); writeln ('красный-стой!');end;
2:begin textcolor (yellow); writeln('желтый-приготовься!');end;
3:begin textcolor (green); writeln('зеленый-иди!');end;
end;
sleep(3000);
until keypressed;
End.
Для начала нужно выбрать игровой движок.
Так как ты не шаришь, то можно выбрать какой-нибудь game-maker, он прост. Конечно же, у тебя на этом движке не выйдет нормальных игр, но для того, чтобы понять все это - сойдет.
Какие языки нужно знать?
Смотря какой движок, если Unity, то C#.
Почитай в интернете о игровых движках.
Как учить?
Самое главное в изучении языков - практика. Прочитал что-то новое, идешь сразу пробовать, иначе не поймешь нормально. Лично я учил и учу языки по книгам и видеоурокам от иностранных ютуберов (Русские хуже объясняют, поверь).
Program B;
type
t=array[1..20] of integer;
var
a:t;
N,i:byte;
S:integer;
begin
readln(N); //кол-во элементов в массиве
S:=0;
for i:=1 to N do
begin
read(a[i]);
S:=S+a[i];
end;
write(S);
end.