Question

Создайте массив из 5 фамилий и выведите на экран те из них которые начинаются на букву вводимую с клавиатуры

Answer 1

const
n=5;
var
a:array[1..n] of string;
c:char;
i:integer;
begin
for i:=1 to n do
begin
writeln('Введите фамилию №',i);
readln(a[i]);
end;
writeln('Введите букву');
readln(c);
writeln('На букву ',c,' начинаются фамилии:');
for i:=1 to n do
if a[i][1]=c then
writeln(a[i]);
end.
ТЕСТ
Введите фамилию №1
Виноградов 
Введите фамилию №2
Анисимов 
Введите фамилию №3
Кондратьев 
Введите фамилию №4
Соколов 
Введите фамилию №5
Архипов 
Введите букву
А
На букву А начинаются фамилии:
Анисимов 
Архипов