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

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

Question

Информатика

Ипполита

4 декабря, 04:13

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

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

+4

Ответы (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. в паскале