Класс

сформировать массив роста учеников класса

в метрах Затем на его основе сформирован второй массив

роста учеников класса в сантиметрах и вывести оба на экран

var

A: array [1 ... 100] of real;

i, n: integer;

begin

writeln ('Введите кол-во учеников: ') ;

readln (n) ;

writeln ('Введите их рост в метрах поочередно: ') ;

for i:=1 to n do readln (A[i]) ;

writeln ('Рост учеников в метрах: ') ;

for i: = 1 to n do writeln (A[i],' м') ;

writeln ('Рост учеников в сантиметрах: ') ;

for i: = 1 to n do writeln (A[i]*100,' см') ;

end.