РЕБЯТ, ОЧЕНЬ СРОЧНО НАДО ПОМОГИТЕ ПОЖАЛУЙСТА массив содержит фамилии 12 человек....

Question

РЕБЯТ, ОЧЕНЬ СРОЧНО НАДО ПОМОГИТЕ ПОЖАЛУЙСТА

массив содержит фамилии 12 человек. заполните данные о росте этих человек (165-190). Паскаль

Answer 1

Uses crt;
type sInfo = record     
surname:string;     
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin       
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;       
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;       
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;               
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;               
// И так далее по примеру выше.       
// Вывод вот так:       
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.