Люююдиии!
Кто понимает эти записи?
У меня вообще ничего в этой прге не пашет, даже когда убрано почти всё..
А по идее это база данных: спортсмены с результатами по прыжкам в высоту..
Нажмите для просмотра прикрепленного файла
procedure vvod;в начале работы программы? Всегда 0?
var sport:sportsmeny;
begin
inc(n); { <--- }
...
procedure vvod;так
var sport:sportsmeny;
begin n:=0;
inc(n); { <--- }
...
procedure vvod;Если ты сделаешь так, как показала - то будешь записывать все данные на первую позицию массива... Как результат - потеряешь всю информацию, кроме одной записи...
var sport:sportsmeny;
begin
inc(n); { <--- }
...
begin
clrscr;
{ Вот так будет надежнее }
n := 0;
vvod;
...
for s:=1 to popytki do beginТы ВСЕ данные о прыжках занесешь в одно и то же место - массив rez у тебя один, и пишешь ты в него (при вводе каждого спортсмена) начиная с первого элемента - результаты прыжков предыдущего спортсмена будут утеряны... Чтобы было корректно - нужно внести массив rez внутрь структуры sportsmeny, чтобы в каждой структуре был свой массив...
readln(rez[s]); { <--- Здесь ... }
end;
imya:string[10];только теперь он после ввода первого распечатывает его два раза.
familiya:string[15];
popytki:integer;
rez: array[1..12] of integer;
end;
masiv= array[1..nn] of sportsmeny;