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

первую сессию все оценки 5. в паскале

Question

Информатика

Евграф

23 сентября, 02:24

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

первую сессию все оценки 5. в паскале

+3

Ответы (1)

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

Трифон · 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.

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

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

первую сессию все оценки 5. в паскале