program z;
type phonebook=record
fio:string;
tel:integer;
end;
var a:array[1..200] of phonebook;
i,n:integer;
begin
Writeln ('Введите количество людей');
readln (n);
for i:=1 to n do begin
Writeln ('Введите фамилию');
Readln (a[i].fio);
Writeln ('Введите телефон');
readln (a[i].tel);
end;
writeln;
Writeln ('Одинаковые номера имеют:');
 
readln;
end.

Что нужно дописать после 18 строки, чтобы вывелись фамилии, у которых телефоны одинаковые?

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

07.12.2010, 17:52

Ответы с готовыми решениями:

Найти и вывести фамилии только тех у кого имя состоит из 4 букв
помогите, пожалуйста, решить задачу. в одномерном масиве из n рядов, каждый из который состоит из...

Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер телефона по фамилии и инициалам владельца
помогите с Исходником. Известны фамилии сотрудников, инициалы, номера телефонов. Найти номер...

Вывести в текстовый файл фамилии пассажиров, фамилии которых начинаются на заданную букву
Помогите найти ошибку, не работает процедура Info()program lab4; uses crt; type item =...

Записи: вывести фамилии рабочих, у кого стаж меньше 10 лет
Надо чтоб выводила фамилии рабочих у кого стаж меньше 10 лет , а потом отдельно фамилии тех у кого...

	07.12.2010, 17:52

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

07.12.2010, 17:52

Помогаю со студенческими работами здесь

Запись. Известны фамилии,адреса и телефоны 25-ти человек. Найти фамилии и адреса людей, чей телефон начинается с цифры 3
1)Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии и адреса людей,чей телефон...

Вывести на экран фамилии и имена тех учеников, у кого сегодня день рождения
1. Дан текстовый файл, в котором хранятся данные об учениках класса: фамилия, имя, отчество, дата...

Определить номера или фамилии тех рабочих, у которых размер премии не менее 500000 рублей
Решить задачу 3-мя способами: 1) с использованием двумерного массив 2)с использованием записей...

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

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх