Строки Опции

[nata]

Помогите решить задачу.
После ввода с клавиатуры строками некоторых фамилий и следующих рядом возрастов (год рождения) выдать на экран фамилию лица, возраст которого более близок к среднему из списка.    :(

[AlaRic]

Посмотри и потестируй вот этот код, вроде как правильно:

Код

program c1;
const n=3;
var i,g:integer;
s,k:string;
a:array[1..n] of integer;
b:array[1..n] of string;
begin
g:=0;
writeln('ввести ',n,' фамилии с возрастом: ');
for i:=1 to n do
begin
readln(b[i]);
readln(a[i]);
g:=g+a[i];
end;
g:=g div n;
for i:=1 to n-1 do
if abs(g-a[i])>abs(g-a[i+1]) then k:=b[i+1];
write(k);
end.

Сделал полегче, чтоб было понятно! Удачи!