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

Question

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

Comments

это работает? я не могу проверить))

---

а у меня ограничение на кол-ве подходящих)

---

кстати, у тебя end больше, чем begin

---

не увидел, где ты блок начал))If (C[1]='В') then Begin видимо сместилось

---

Lenysikagafono, оставляю всё на твой суд, а я,пожалуй, спать)) всем удачи )

Answer 1

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.