Что то не работает как надо...

[rezak91]

вот тут то и выскакивает ошибка, почему, где и как исправить? Продвиньте вперед новичка
цель программы :Организовать массив записей, который содержит информацию о соревнованиях спортсменов троеборцев (ФИО, время на 1км, прыжок в высоту, прыжок в длину). определить лучшего спортсмена по прыжкам в длину.
program zadacha2;
var i,n:integer;
a:array[1..99] of integer;
begin;
readln(n);
for i:=1 to n do
writeln ('vvedite FIO, vrema 1 km, prijok v visotu, prijok v dlinu');
readln (a[i].fio, a[i].km, a[i].height, a[i].long);
best:=a[1].long;
bestID:=1;
for i:=2 to n do
begin
if a[i].long>best
then begin
best:=a[i].long;
bestID:=i;
end;
end;
writeln(a[i].fio);
readln;
end.

[rezak91]

Спасибо за помощь....

[Don Karleone]

В вашем задании необходимо объявить массив записей!!! А вы объявили массив целых чисел
a: array [1..99] of Integer; !!!
Необходимо написать так
type
TSport = record
family,name,fater: string; {фамилия, имя, отчество}
chas: word; {время}
hieght,long: word; {прыжок в высоту и в длину}
end;

А теперь объявляем массив записей:
a: array [1..99] of TSport;

Поиск лучшего спортсмена у вас проделан правильно, только для вывода ФИО надо записать так:
writeln(a.family,' ',a.name,' ',a.fater);

[Don Karleone]

И еще ввод данных о спортсменах нужно осуществлять следующим образом:
for i:=1 to n do
with a do
begin
readln(family);
readln(name);
readln(fater);
readln(chas);
readln(height);
readln(long);
end;
При этом для каждого оператора readln можно добавить пояснитильную запрись типа writeln('Введите фамилию: ') и т. д.;

[rezak91]

Дон карлеоне, 2642711 в асю стукните пожалуиста, а там договоримся

[Don Karleone]

У меня аськи нет! А договариваться о чем будем???

[rezak91]

о сумме за 3 задачки
просто мя преподавательница завтра скушает, а мама потом еще и поджарит
я сам толком не шарю...

[Don Karleone]

Напиши что ты готов за них заплатить и скинь условия задач на dryshkov@yandex.ru

[rezak91]

program zadacha2;
type TSport = record
end;
var
family,name,fater:string;
chas:word;
height,long:word;
i,n:integer;
a:array [1..60] of TSport;
best : Real;
bestID : Integer;
begin;
writeln ('vvedite koli4estvo sportsmenov');
readln(n);
for i:=1 to n do
begin
writeln ('vvedite family');
readln(family);
writeln('vvedite name');
readln(name);
writeln('vvedite fater');
readln(fater);
writeln('vvedite vremya za 1km');
readln(chas);
writeln('vvedite prijok v visoty');
readln (height);
writeln ('vvedite prijok v dlinny');
readln(long);
end;
best:=long;
bestID:=1;
for i:=2 to n do
begin
if long > best then
begin
best:=long;
bestID:=i;
end;
end;
writeln(bestID);
readln;
end.

помогите, чуть неправильно выдает ответ, всмысле не показывает который макс прыгул в длинну. Язык:турбо Паскаль, условие Организовать массив записей, который содержит информацию о соревнованиях спортсменов троеборцев (ФИО, время на 1км, прыжок в высоту, прыжок в длину). определить лучшего спортсмена по прыжкам в длину.

[Don Karleone]

исправлять не буду, прогу тебе уже написали.