Одномерный массив из 10 элементов с номерами от 10 до 20 заполнить случайным образом числами от 0 до 22. Все элементы массива, значения которых лежат между 10 и 20 включительно, увеличить в 5 раз. Вывести на экран монитора первоначальный и преобразованный массивы в столбик.

Var

i:integer;

a:array[10 ... 20]of integer;

begin

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

for i:=10 to 20 do

begin

a[i]:=random (23) ;

writeln (a[i]) ;

end;

for i:=10 to 20 do

if (a[i]>=10) and (a[i]<=20) then a[i]:=a[i]*5;

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

for i:=10 to 20 do

writeln (a[i]) ;

end.