Сгенерировать и вывести массив случайных чисел, состоящий из 16 элементов, заполненный случайными числами от 12 до 25?
296
484
Ответы на вопрос:
var a:^array[1..100] of integer;
n,i,j:integer;
begin
new(a);
repeat
write('Введите размер массива от 12 до 25 n=');
readln(n);
until n in [12..125];
for i:=1 to n do
begin
a^[i]:=1+random(100);
write(a^[i]:4);
end
end.
Объяснение:
нужно задать вопрос любому из них: "если бы ты отвечал на вопрос: "за какой дверью дракон", что бы ты ответил? " если спросили честного, он и ответит так, как бы ответил. если спросили лжеца, то он соврет относительно своего ответа, т.е. в любом случае ответит правдиво. как бы двойной фильтр, результат которого для лжи и правды одинаков.
Популярно: Информатика
-
murrrКотя04.05.2021 00:00
-
kskvortsovak0728.09.2022 05:29
-
Мурмурыч28.04.2020 17:43
-
Собака260922.10.2021 05:49
-
kseniya0945130.12.2020 00:58
-
sheremetev0205.09.2021 03:23
-
yuakomlev27.12.2021 05:11
-
mictermixa111.02.2020 16:59
-
AdamM205.06.2023 04:46
-
daryadaletskay15.03.2021 13:00