menu
person

Задача №2895

В мас­си­ве хра­нит­ся ин­фор­ма­ция о годе рож­де­ния каж­до­го из 30

Поиск задачи:

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

writeln(imin)

end.

Категория: по информатике | Добавил: Просмотров: 1 | Теги: Ал­го­рит­мы обработки массивов | Рейтинг: 0.0/0
Всего комментариев: 0