До посинения можно говорить о новых спортивных играх. Но давайте поговорим о городских подростковых играх. Об этом рассказывает множество книг и фильмов, но не смотря на это, интерес к таким играм не утихает. Вам знакомо название "Схватка"? Наверняка знакомо, и, может быть, вы даже в нее играли. А если нет, обратите внимание - на многих машинах есть такие наклейки.
<span> </span>
"Схватка" подразумевает открытость игр или закрытость. В открытых могут участвовать все, кто только пожелает. А вот в закрытых - только зарегистрированные участники. Да и задания в этом случае более сложные, например, наличие машины с наполненным бензиновым баком, мобильник и координатор, сидящий в интернете. Он сообщает задания только по сотовому телефону. Начинаются такие игры после наступления сумерек - темнота есть друг молодежи. Фишка этой игры - находить шифры, коды, и двигаться, двигаться. Бежать, даже неважно, куда. Движение - жизнь.
Есть еще одна игра - Encounter. Уж это-то вы наверняка слышали. У игроков даже есть свой словарь, из сорока слов. В игре есть уровни, всего четыре. Последовательный, непоследовательный, последовательность случайная и штурмовая. Т.е., команда получила задание, ну а как их выполнять - сугубо их дело.
Ну, и фотоигра. Смысл понятен. Это что-то вроде фотокросса, когда за определенное время вы пытаетесь найти тот сюжет, который впишется в задание. А заданий несколько. Потом все фото отправляются на стол к судьям, которые принимают решение - чей же снимок лучше.
Открыть
Проверить на вирусы
Открыть с помощью
Копировать
Отправить
Удалить
Свойства
Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
Var a:array[1..20] of integer;
n,i:integer;
begin
for i:=1 to 20 do begin
a[i]:=random(-150,1000);
if (a[i] mod 5=0) and (a[i] mod 2<>0) then n+=1;
write(a[i],' ');
end;
writeln();
writeln('Искомых элементов: ',n);
end.
Var
ves,rost,ogk:real;
begin
Write('Введите рост и длину окружности грудной клетки в см: ');
Readln(rost,ogk);
ves:=rost*ogk/240;
Writeln('Нормальный вес равен ',ves:5:1,' кг.')
end.
