Задания
Версия для печати и копирования в MS WordВ массиве хранится информация о годе рождения каждого из 30 человек. Определите порядковый номер самого старшего по возрасту человека. Если таких человек несколько, нужно вывести их порядковые номера.
Решение.
Спрятать критерииconst N = 30;
var
A: array [1..N] of integer;
i: integer;
min, imin: integer;
begin
for i := 1 to N do
readln(A[i]);
min := A[1];
imin := 1
for i := 2 to N do
if (A[i] < min) then
begin
min := A[i];
imin := i
end;
for i:=1 to n do
if (A[i]=min) then writeln(i);
end.


Здравствуйте! В задаче поставлен вопрос о нахождении номера самого СТАРШЕГО, а ваша программа написана для нахождения номера младшего.
Здравствуйте! Чем меньше год рождения, тем старше человек. например, у двух людей, годы рождения которых 1970 и 1980, старше тот, кто родился в 1970.