Question

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

Answer 1

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