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

Question

Информатика

Ганя

30 апреля, 14:03

Задать одномерный массив (В) из 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.