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

Question

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

Comments

А где данные? я ж не знаю кто там у вас 5 получил

---

а данные вводятся любые.

---

формат ввода

---

любой

---

c тебя спасибо)

Answer 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]<>'' then
writeln(m[i]);
end;
end.