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

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

Задать свой вопрос
Мария Абрагина
А где данные? я ж не знаю кто там у вас 5 получил
Санаев Егор
а данные вводятся любые.
Камилла Лукшина
формат ввода
Юрий Берзов
хоть какой
Кира
c тебя спасибо)
1 ответ
Var a,b,c,d,i:longint;
s:string;
m:array[1..100000] of string;
begin
readln(a);
for i:=1 to a do
begin
readln(s);
if s[length(s)]='5' then
begin
s[length(s)]:=' ';
m[i]:=s;
end;
end;
for i:=1 to a do
begin
if m[i]lt;gt;'' then
writeln(m[i]);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт