Какое сегодня число? день недели? как кричит осёл? наименьшее однозначное число? на чём путешествовал емеля? как называется рот у птицы? кто сидит на троне и царством? её наклеивают на конверт что это ? сколько гласных звуков в азбуке? а сколько согласных? а букв всего сколько? почему?
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=SeqRandom(ReadInteger('n='),10,99).Sorted.ToArray; a.Println; var k:=ReadInteger('Сколько значений удалить?'); if k>=a.Length then Writeln('Задание не имеет смысла') else begin var s:=ReadArrInteger('Вводите значения через пробел:',k); a:=a.Where(x->not (x in s)).ToArray; a.Println end end.
6, Понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33