Распечатать список учеников, фамилии которых начинаются на букву в, с указанием даты их рождения. на паскале

137

381

Посмотреть ответы 2

Ответы на вопрос:

borisovak468

Информатика

4,6(18 оценок)

Var s: string; n,i: integer; ych: array[1..99999] of string; begin writeln('введите кол-во учеников'); readln(n); for i: = 1 to n do begin readln(s); if s[1] = 'в' then ych[i]: =s; end; writeln('начинаются на в'); for i: = 1 to n do if ych[i]< > '' then writeln(ych[i]); end.