Задать одномерный массив (В) из 25 вещественных элементов с помощью цикла while

Question

Задать одномерный массив (В) из 25 вещественных элементов с помощью цикла while

Comments

Нельзя в языке программирования ЗАДАТЬ массив "с помощью цикла". Массив "задается" путем его описания. А в цикле формируются значения элементов массива.

---

Program AD;

---

Это что было - Program AD?

Answer 1

Const n=25;
var b:array [1..n] of real;
    i:integer;
begin
  writeln('Заданный массив:');
  Randomize;
  for i:=1 to n do
  begin
    b[i]:=5*random-2.5;
    write(b[i]:6:2);
    end;
    writeln;
end.