Question

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

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.