40 баллов
nДано k литерных строк. Каждая строка содержит латинские и русские буквы,
nцифры, а также все возможные разделители. Требуется Выделить из каждой строки и напечатать подстроки не содержащие символов точка, запятая, двоеточие, точка с запятой.
nПаскаль
carrollnastya 2 года назад

Желательно добавить их в другой массив и вывести его

triolana 2 года назад

Т.е. строки ввести с клавиатуры, запихнуть в массив, а потом результат в какой-то другой?

triolana 2 года назад

Ну и уж только потом его вывести. Так?

carrollnastya 2 года назад

Да, именно

triolana 2 года назад

Странный алгоритм. Очень нерациональный. Ну да это Ваша печаль, конечно.

Ответ проверен экспертом
5/5 (1 оценка)
0
triolana 2 года назад
Светило науки - 30316 ответов - 388270 раз оказано помощи

// PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var d := ['.', ',', ':', ';', '*', '<', '>', '=', '+', '-'];

 var n := ReadlnInteger('n=');

 var a := ReadArrString(n);

 Println;

 var b := a.Where(s -> not (s.Any(c -> c in d))).ToArray;

 b.PrintLines

end.

carrollnastya 2 года назад

Спасибо за решение, но все же это не то, что нужно

triolana 2 года назад

Я не могу к Вам в голову заглянуть, чтобы понять, что Вам нужно. А написать это в вопросе Вы не пожелали.