Помогите решить задачу. После ввода с клавиатуры строками некоторых фамилий и следующих рядом возрастов (год рождения) выдать на экран фамилию лица, возраст которого более близок к среднему из списка. :(
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
Я так понял, что вводится строка с фамилией, а затем возраст числом! Надеюсь я правильно понял ;)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.