В массиве хранится информация о годе рождения каждого из 30 человек.Определить порядковый номер самого старшего по возрасту человека?
10-11 класс
|
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.
ответ нужен в паскале
Другие вопросы из категории
три числа. Написать программу
Если можно, то скажите почему именно этот ответ)
Читайте также
Определить общую зарплату, выплаченную в июне.
а) Все четные элементы
б) Все элементы, оканчивающиеся нулем.
2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.
собой совокупность трех полей:фамилия ,год рождения,женат или нет
Иванов 1970 да
Петров 1972 нет
Сидоров 1969 да.
распечатать содержимое полученного файла
Затем считать из файла эту информацию и напечатать:
1-я запись-Иванов 1970 да
2-я запись-Петров 1972 нет
3-я запись-Сидоров 1969 да