javascript:var массив = [], макс_зн, макс_ном, мин_зн, мин_ном; for (let сч = 0; сч < 10; сч++) массив.push((function (от, до) { return Math.round(от - 0.5 + Math.random() * (до - от + 1)); })(-10, 10)); массив.forEach(function (зн, ном) { if (ном == 0) { макс_зн = зн; макс_ном = 0; мин_зн = зн; мин_ном = 0; } else { if (зн > макс_зн) { макс_зн = зн; макс_ном = ном; } else if (зн < мин_зн) { мин_зн = зн; мин_ном = ном; } } }); alert(макс_зн + " (" + макс_ном + "); " + мин_зн + " (" + мин_ном + ")");
Введём условные обозначения:
К - красный, С - синий, З - зелёный, Ж - жёлтый, М - малиновый, Г - голубой, @ - круг, Δ - треугольник, # - квадрат, ∑- пятиугольник.
1} Первая реплика Старшего: "я не знаю, и я уверен, что ты не знаешь". Он не мог бы такого сказать, если б ему назвали Ж (его мысль: "а вдруг Младшему назвали Ж, тогда он точно знал бы ответ Ж#"). Точно так же Старшему не могли назвать Δ, потому что тогда он мог опасаться Г у Младшего. Значит, Старшему назвали @ или ∑
2} Всё это понял Младший, когда услышал первую реплику Старшего. Он знает, что у Старшего либо @ либо ∑. Если бы Младшему назвали М, он не смог бы сделать однозначного вывода. Значит М отпадает. Ему назвали С, К или З, и зная свой цвет, он может дать точный ответ: символ - С@ или K∑ или З∑.
3} Старший, услышав, что Младший уже знает ответ, мгновенно понял, что он тоже знает его. Ели бы ему назвали ∑, он бы сейчас сомневался ("К или З?"), но он не сомневается, потому ему назвали @, и возможен только один вариант: С@
ответ: синий круг
Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1;
1) Beigin; правильно Begin и без точки с запятой
2)p=0; оператор присвоения пишется не просто равно, а := правильно: "p:=0;"
3)i=1; см. 2пункт
4)write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin
5)i=i+2; см. пункт 2
6) while ('произведение нечётных чисел от 1 до 15 =',р); тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 =',p);
7) End. в конце цикла пишут end;
8) в конце программы ставят End.
Откорректированный код:
Program z_1
Var i,p : integer;
Begin
p:=0;
i:=1;
while (i > 15) do begin
p:=p*i;
i:=i+2;
end;
write('произведение нечётных чисел от 1 до 15 =',p);
End.