Правила форума
Прочтите прежде чем задавать вопрос!
Написала код. Все сделала по аналогичной задаче из методички. В итоге программа вылетает при попытке ввести данные (фамилия, имя...) с ошибкой 106 invalid numeric format. Много раз все перепрорверяла, в чем проблема в упор не вижу.
Вот сам код:
Uses Crt;
Type
sportsmeni=record
fam : string [10];
name : string [10];
str: string [10];
avto: integer;
nagr: integer;
rez: integer
end;
Var
I,n,a,j : integer;
Massiv : array[1..100] of sportsmeni;
procedure Poisk;
Begin
for i:=1 to n do
if massiv[i].nagr=0
then
with massiv[i] do
writeln(fam, ' ', name, ' ', str, ' ', avto, ' ', rez);
End;
Begin
ClrScr;
writeln('vvedite chislo sportsmenov ');
write('->');
read(n);
for i:=1 to n do
begin
writeln('vvedite cherez probel familiu, imya, strany, nomer avto, rezultat, kol nagrad ');
write('->');
with massiv[i] do
begin
readln(Fam, name, str, avto, rez, nagr);
write('vvedite kolichestvo nagrad ->');
read(nagr);
end;
end;
writeln('ne imeut nagrad:');
writeln('---------------------------------');
Poisk;
ReadKey;
End.
:roПИДАРЫЧМОУЕБЫСУКИЛОХПИДРЫУЕБУНАХУЙВСЕХ
