преобразовать одномерный массив элементы с третьего по восьмой разделить на последний элемент.

var i,r:integer; a:array[1..10] of real;s:real;BEGINWrite('r:'); readln(r);for i:=1 to r do begina[i]:= random(20);write(a[i]:5:1);end;Writeln();for i:=1 to r do beginif (i>=3) and (i<=8)  then a[i]:=a[i]/a[r];Write(a[i]:5:1);end;Readln();END.