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