Массив

[Dimati87]

Доброе время суток, не поможете мне решить задачку, нужно в массив записать Имя_Фамилию, Адрес проживания, и затем найти по Имени_Фамилии адрес проживания;

[Stilet]

Так а в чем проблема?
Записываешь ты в цикле? Вот в таком же цикле проходи по массиву в поисках.
В качестве элемента массива используй структуру типа:

type r=record
 FIO,Adres:String;
end;

[Dimati87]

Сообщение от Stilet

Так а в чем проблема?
Записываешь ты в цикле? Вот в таком же цикле проходи по массиву в поисках.
В качестве элемента массива используй структуру типа:

type r=record
 FIO,Adres:String;
end;

а по подробнее можно (буду очень благодарен), дело в том что уже забыл программирование

[Stilet]

Подробнее? Ладно.

var a:array[1..10] of r - Это объявление массива

Далее в цикле наполняешь

for i:=1 to 10 do begin
 Write('ФИО ');Readln(a[i].FIO);
 Writeln('Адрес ');Readln(a[i].adres);
end;

Потом в таком же цикле делаешь поиск

for i:=1 to 10 do begin
 if a[i].fio=Некой фамилии then begin
  Write('Адрес ',a[i].adres);
  break;
 end;
end;
readln;

Достаточно понятно?

[Dimati87]

да понятно, спасибо, где здесь + поставить ?