94

Распечатать анкетные данные студентов, получивших впервую сессию все оценки 5. В…

08 марта 2023

Распечатать анкетные данные студентов, получивших впервую сессию все оценки 5. В паскале

категория: информатика



74

Var a,b,c,d,i: longint; s: string; m: array[1… 100000] of string; beginreadln (a); for i: =1 to a dobeginreadln (s); if s[length (s) ]='5' thenbegins[length (s) ]: ='; m[i]: =s; end; end; for i: =1 to a dobeginif m[i]<>' thenwriteln (m[i]); end; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...