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

Question

Информатика

Савина

26 февраля, 02:55

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

+2

Ответы (1)

Знаете ответ?

Мелетий · 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]
begin

min:=a[i];

k:=i;

end;

end;

writeln ('Порядковый номер самого старшего по возрасту человека равняется ', k) ;

end.