преобразовать одномерный массив элементы с третьего по восьмой разделить на последний элемент.
Answers & Comments
Adequate
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.
Answers & Comments
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.