Ограничить количество знаков после запятой - Turbo Pascal

Формулировка задачи:

Ребят, что нужно поменять чтобы после запуска в массиве получались числа с меньшим количеством знаков после запятой? а то вот такие получаются например: 5.10000000Е+01-препод говорит что нужно изменить формат. А само задание звучит так:Найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива–10. Заполнение массива осуществить случайными числами от 50 до 100.
program element;
uses crt;
var a:array[1..10] of real;
    x,p:real;
    i:integer;
begin
writeln ('Программа нахождения произведения элементов массива');
writeln ('Выполнил студент гр. Э-34 Генералов М. В. ');
for i:=1 to 10 do
   begin
    a[i]:=random(50)+ random +50;
    write(a[i],' ');
   end;
 writeln;
 Write('Введите значение x= ');
 readln(x);
 p:=1;
   for i:=1 to 10 do
    if (a[i]<x) then p:=p*a[i];
writeln('Произведение: ',p:8:3);
Write ('Программа завершена, нажмите любую клавишу...= ');
readln (p);
end.

Код к задаче: «Ограничить количество знаков после запятой - Turbo Pascal»

textual
for i:=1 to 10 do
 begin
 a[i]:=random(50)+ random +50;
 write(a[i]:6:2);
 end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.500 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы