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

Question

Информатика

Василько

26 марта, 18:00

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

+4

Ответы (1)

Знаете ответ?

Филя · 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.