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

Question

Информатика

Саня

30 марта, 12:41

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

+1

Ответы (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.