записи

[Cepgeich]

База данных содержит фамилию пациента и диагноз. Написать программу, определяющую пациентов с наиболее распространенным заболеванием.

Базаданных задается самостоятельно (30 записей)


Uses crt;

Type BazaDannyx=record
FIO: string[40];
Diagnoz: string[50];
end;
Var pacient:array [1..30] of BazaDannyx;
i:integer;
Begin;
clrscr;
for i:=1 to 30 do
begin
writeln ('bbedite FIO' ,i, '-ogo pacienta');
readln (pacient[i].FIO);
writeln ('bbedite Diagnoz',i,'-ogo pacienta');
readln (pacient[i].Diagnoz);
end;
End.


вот мой код, нужно только поставить проверку на распространенный диагноз.

[RUSt88]

а все диагнозы лучше загнать в константный массив

[mifomen]

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

а все диагнозы лучше загнать в константный массив

Поддерживаю, если по сути 1- опечатка и всё, +1 новый диагноз.