Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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
Архипов 
Введите букву
А
На букву А начинаются фамилии:
Анисимов 
Архипов