Задания
Версия для печати и копирования в 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.
-------------
Дублирует задание № 2919.Спрятать критерии

