Преобразовать одномерный массив элементы с третьего по восьмой разделить на последний элемент.
Преобразовать одномерный массив элементы с третьего по восьмой разделить на последний элемент.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы