В массиве хранится информация о годе рождения каждого из 30 человек.Определить порядковый номер самого старшего по возрасту человека?

Var a:array[1..30] of integer;
i,k,min:integer;
begin
writeln(Введите годы рождения );
for i:=1 to 30 do
begin
readln(a[i]);
end;
min:=a[1];
for i:=1 to 30 do
begin
if a[i]begin
min:=a[i];
k:=i;
end;
end;
writeln(Порядковый номер самого старшего по возрасту человека равняется ,k);
end.

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