Найти самого старого мужчину и самую молодую женщину в списке группы - Pascal ABC
Формулировка задачи:
Всем привет, дали условие
"Дан список группы в 10 человек в виде ФАМИЛИЯ ГОД_РОЖД. ПОЛ 15 симв. 4 симв. 1 симв. Иванов 1985 М Петрова 1983 Ж …………………… Найти самого старого мужчину и самую молодую женщину и вывести соответствующие строки."
по нему нужно написать программу, примерный код я написал но очень плохо владею языком(работаю на этим),
program Ex1_v1; var f: text; mass: array[1..10, 1..22] of char; i, j: integer; b: char; begin assign(f, 'SPISOK.txt'); reset(f); for i := 1 to 10 do begin for j := 1 to 22 do begin read(f, mass[i, j]); end; readln(f); end; close(f); assign(f, 'res.txt'); rewrite(f); for i := 1 to 10 do begin for j := 1 to 22 do begin write(f, mass[i, j]); write(mass[i, j]); end; writeln(f); writeln; end; writeln(f); close(f); begin{--------------------------------------------------------------->(самый старый мужчина)} for i := 1 to 10 do begin for j := 1 to 22 do begin if mass[1, 17] = 'm' then begin b := mass[i, 22]; if b < mass[i + 1, 22] then b := mass[i + 1, 22] else mass[i, 22] := mass[i + 1, 22]; end; end; end; writeln(); end; begin{-------------------------------------------------------------->(самая молодая женщина)} for i := 1 to 10 do begin for j := 1 to 22 do begin if mass[1, 17] = 'g' then begin b := mass[i, 22]; if b > mass[i + 1, 22] then b := mass[i + 1, 22] else mass[i, 22] := mass[i + 1, 22]; end; end; end; writeln(); end; close(f); end.Что и как быть дальше не знаю...
Код к задаче: «Найти самого старого мужчину и самую молодую женщину в списке группы - Pascal ABC»
type person=record fam:string[15]; grz:integer; pol:char; end;
5 голосов, оценка 4.000 из 5
СОХРАНИТЬ ССЫЛКУ