Сформировать массив из 15 случайных чисел, принадлежащих промежутку от 5 до 20, а затем преобразовать, увеличивая на 1 все элементы, меньшие 10. Распечатать исходный и преобразованный массивы.

Var

i:integer;

a:array [1 ... 15] of integer;

begin

for i:=1 to 15 do begin

a [i]:=Random (5,20) ;

end;

write ('Исходный массив ') ;

for i:=1 to 15 do begin

write (a [i]) ;

write (' ') ;

end;

for i:=1 to 15 do begin

if (a [i]<10) then

inc (a [i]) ;

end;

writeln (' ') ;

write ('Преобразованный массив ') ;

for i:=1 to 15 do begin

write (a [i]) ;

write (' ') ;

end;

end.