Определить, какой человек указан в списке раньше: самый старший или самый младший

@Danilochka · Регистрация: 28.03.2011

Студворк — интернет-сервис помощи студентам

Известен возраст группы людей в списке. Какой человек указан в списке раньше: самый старший или самый младший? (должны учитываться первые из людей одинакового возраста).

@Puporev · 26.10.2011, 12:05

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax] of byte;
    n,i,imn,imx:integer;
begin
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите возраст людей:');
for i:=1 to n do
 begin
  write(i,'=');
  read(a[i]);
 end;
imn:=1;
imx:=1;
for i:=1 to n do
 begin
  if a[i]<a[imn] then imn:=i;
  if a[i]>a[imx] then imx:=i;
 end;
writeln('Самый младший номер ',imn);
writeln('Самый старший номер ',imx);
if imn<imx then write('Младший указан раньше')
else write('Старший указан раньше');
end.

@Danilochka 1 / 1 / 0 Регистрация: 28.03.2011 Сообщений: 53
		1
	Определить, какой человек указан в списке раньше: самый старший или самый младший 25.10.2011, 18:25. Показов 5152. Ответов 1 Метки нет (Все метки) Известен возраст группы людей в списке. Какой человек указан в списке раньше: самый старший или самый младший? (должны учитываться первые из людей одинакового возраста). 0

	26.10.2011, 12:05

Опции темы

Определить, какой человек указан в списке раньше: самый старший или самый младший

Решение