Массив предназначен для хранения значенийи ростов 12 человек. С помощью датчика случайнях чисел заполнить массив значениями, лежащими в диапозоне от 163 до 190 включительно. вывести данный массив на экран.

Var mass:array[1 ... 12] of integer;

i:integer;

begin

randomize;

for i:=1 to 12 do begin

mass[i]:=163+random (28) ;

writeln ('рост ', i,' = ', mass[i]) ;

end;

end.

Пример работы:

рост 1 = 167

рост 2 = 168

рост 3 = 186

рост 4 = 167

рост 5 = 170

рост 6 = 170

рост 7 = 173

рост 8 = 175

рост 9 = 168

рост 10 = 179

рост 11 = 174

рост 12 = 188