помогите.[двумерные массивы+записи], помогите решить задачку.пожалуйста. Опции

[TreyOl]

В N городах провели обследование жителей на предмет употребления или не-употребления ими наркотиков (1 - употребляет, 0 - не употребляет). Результаты обсле-дования жителей поступают не упорядоченными по городам. Определить города с мак-симальной тенденцией к употреблению наркотиков.

должна быть запись из 4-ех городов. Напримерм. магнитогорск.саратов.пермь.ульяновск.

исполнителю идет текст.
он отвечает магнитогорск 1.
следующий саратов 0.
магнитогорск 1.
и т.д.
в конце вывести у кого максимум.

[Krjuger]

В общем так,я не нашел стандартных сособов ввода,вывода перечислимых типов, поэтому сделал следующее, я сделал, как смог, заполнение нашего массива записей,теперь тебе надо найти максимальное значение наркоманов и вывести ответ на экран.

uses crt;
const n=4;
type
 town=(Magnitogorsk,Saratov,Moscow,Perm);
type city=record
name:town;
nar: byte;
kol: integer;
end;

var
temp:string;
arr :array[1..n] of city;
i:integer;
Ans:char;
Tname:town;
begin
arr[1].name:=Magnitogorsk;
arr[2].name:=Saratov;
arr[3].name:=Moscow;
arr[4].name:=Perm;
arr[1].kol:=0;
arr[2].kol:=0;
arr[3].kol:=0;
arr[4].kol:=0;
repeat
 writeln('Vvedite gorod');
 readln(temp);
 if temp='Magnitogorsk' then
    Tname:=Magnitogorsk
 else
  if temp='Saratov' then
    Tname:=Saratov
  else
    if temp='Moscow' then
       Tname:=Moscow
    else
      if temp='Perm' then
         Tname:=Perm
      else
        writeln('Vi vveli neverniy gorod');

for i:=1 to n do
 if Tname=arr[i].name then
 begin
    writeln('Est8 li narkoman?');
    readln(arr[i].nar);
    if arr[i].nar=1 then
     arr[i].kol:=arr[i].kol+1;
  end;
writeln('prodolzit* vvod?(y/n)');
Ans:=readkey;
until ans<>'y';
for i:=1 to n do
 writeln(i,' ', arr[i].kol);

readln;
end.

Это,момент когда вводится неверный город в таком виде не работает,я только что заметил,так что надо будет подправить.Сейчас моя программа выводит количество норкаманов во всех городах по списку.

Сообщение отредактировано: Krjuger - 9.02.2012 0:26