Паскаль

[Unreed]

Кому не сложно.. Помогите написать программу к задаче:
Данны массивы:
N1...N5 - наименования поставщиков
PS1...PS5 - город, где находится поставщик
P1...P10 - наименования потребителей
POT1...POT10 - город, где находится потребитель

Напечатать списки поставщиков и потребителей, находящихся в одном и том же городе.
Заранее Огромное Спасибо!!

[hon]

Где наработки? В чем проблема?

[Unreed]

Беда в том что пропустил лекцию в инстиуте по этой теме.. Сейчас сижу и не понимаю с чего начать и чем закончить(

[Unreed]

Помогите, пожалуйста!!

[hon]

Сейчас попробую сделать.

Сделал. Лови. Не забудь нажать на весы и отблагодарить.

var
  n:array[1..5] of string;
  ps:array[1..5] of string;
  p:array[1..5] of string;
  pot:array[1..5] of string; {внимание! исправил 10 на 5}
  i,j:byte;
begin
   {Заполенение массивов}
   n[1]:='Поставщик Вася'; ps[1]:='Львов';
   n[2]:='Поставщик Петя'; ps[2]:='Харьков';
   n[3]:='Поставщик Коля'; ps[3]:='Киев';
   n[4]:='Поставщик Гриша'; ps[4]:='Львов';
   n[5]:='Поставщик Борис'; ps[5]:='Харьков';

   p[1]:='Приемник Вася'; pot[1]:='Львов';
   p[2]:='Приемник Петя'; pot[2]:='Харьков';
   p[3]:='Приемник Коля'; pot[3]:='Киев';
   p[4]:='Приемник Гриша'; pot[4]:='Львов';
   p[5]:='Приемник Борис'; pot[5]:='Харьков';
   for i:=1 to 5 do
       for j:=1 to 5 do
       if ps[i]=pot[j] then Writeln(n[i],' находится в том же городе, что и ',p[j]);
   end.