Напишите пожалуйста Коментарии к программе

[Владимир163]

Напишите пожалуйста Коментарии к программе

uses crt;
const pol:array[1..2] of string=('девушка','юноша');
type uch=record
p:string;
r:byte;
end;
var a:array[1..30] of uch;
n,i,k,mx:byte;
sr:real;
begin
clrscr;
repeat
write('Количество учеников до 30 n=');
readln(n);
until n in [1..30];
writeln('Введите пол и рост учеников:');
for i:=1 to n do
begin
writeln('Ученик ',i);
repeat
write(' Пол: 1-девушка 2-юноша: ');
readln(k);
until k in [1..2];
a[i].p:=pol[k];
repeat
write(' Рост от 100 до 190: ');
readln(a[i].r);
until a[i].r in [100..190];
end;
sr:=0;
mx:=0;
for i:=1 to n do
begin
sr:=sr+a[i].r;
if (a[i].p='юноша')and(a[i].r>mx) then mx:=a[i].r;
end;
sr:=sr/n;
writeln('Средний рост учеников=',sr:0:1);
writeln('Самый высокий юноша имеет рост=',mx);
readln
end.

[newerow1989]

Все просто!

uses crt;
const pol:array[1..2] of string=('девушка','юноша');
type uch=record
p:string;//пол ученика
r:byte;//рост ученика
end;
var a:array[1..30] of uch;//массив учеников
n,i,k,mx:byte;
sr:real;
begin
clrscr;
repeat
write('Количество учеников до 30 n=');
readln(n);//ввод кол-ва учеников
until n in [1..30];//пока не станет n в диапазоне [1..30]
writeln('Введите пол и рост учеников:');
for i:=1 to n do
begin
writeln('Ученик ',i);
repeat
write(' Пол: 1-девушка 2-юноша: ');
readln(k);
until k in [1..2];
a[i].p:=pol[k];//записываем в массив (со свойством p) пол ученика
repeat
write(' Рост от 100 до 190: ');
readln(a[i].r);//записываем рост ученика
until a[i].r in [100..190];
end;
sr:=0;//обнуляем счетчики
mx:=0;
for i:=1 to n do
begin
sr:=sr+a[i].r;//суммируем общий рост учеников
if (a[i].p='юноша')and(a[i].r>mx) then mx:=a[i].r;//находим максимальный рост юноши
end;
sr:=sr/n;//определяем средний рост учеников
writeln('Средний рост учеников=',sr:0:1);//вывод на экран
writeln('Самый высокий юноша имеет рост=',mx);
readln
end.