Автор: nata 14.01.2004 1:19
Помогите решить задачу.
После ввода с клавиатуры строками некоторых фамилий и следующих рядом возрастов (год рождения) выдать на экран фамилию лица, возраст которого более близок к среднему из списка. :(
Автор: AlaRic 14.01.2004 1:44
Посмотри и потестируй вот этот код, вроде как правильно:
Код
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.
Сделал полегче, чтоб было понятно! Удачи!
Автор: AlaRic 14.01.2004 2:20
Я так понял, что вводится строка с фамилией, а затем возраст числом! Надеюсь я правильно понял ;)