Question

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

Answer 1

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]<min then 
begin
min:=a[i];
k:=i;
end;
end;
writeln('Порядковый номер самого старшего по возрасту человека равняется ',k);
end.