Задать одномерный массив (В) из 25 вещественных элементов с помощью цикла while
Задать одномерный массив (В) из 25 вещественных элементов с помощью цикла while
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы