Максим, олег и никита прогуляли урок технологии. директор вызвал мальчиков на беседу. на вопрос, кто - id134950120201015 от дагмгп 15.10.2020 12:46

Question

Информатика: Максим, олег и никита прогуляли урок технологии. директор вызвал мальчиков на беседу. на вопрос, кто зачинщик этого прогула, ответили следующее. никита: это не я придумал, и олег ни в чем не виноват. олег: никита наоборот хотел на урок, максим нас подбил на прогул. максим: я не зачинщик, это была идея никиты. директор знал, что один из них оба раза сказал правду, второй оба раза солгал, а третий сказал и правду и нет. кому принадлежит идея прогула?

дагмгп · Accepted Answer

Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] a[max] then max := j;    Write(a[max], );    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write( Введите длину массива: );  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:...

MOGZ ответил