В массиве хранится информация о годе рождения каждого из 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.