давно
Старший Модератор
31795
6196
14.12.2019, 18:42
общий
это ответ
Здравствуйте, JonMoxley!
Смотрите код:
[code lang=pascal]const
n=30;
type
tBase=record
name:string;
addr:string
end;
var
a:array[1..n]of tBase;
b:string;
c:integer;
begin
for c:=1 to n do
begin
writeln('enter record[',c:2,']:');
repeat
write('name:');
readln(a[c].name);
until length(a[c].name)>0;
write('addres:');
readln(a[c].addr);
end;
write('enter three names:');
readln(b);
for c:=1 to n do
if pos(a[c].name,b)>0 then writeln(a[c].name,' ',a[c].addr);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.