С использованием функции random сформировать одномерный массив

Категория: Delphi/Pascal
2011-09-05 19:04:37

С использованием функции random сформировать одномерный массив, состоящий из n вещественных элементов в котором элементы случайным образом принимают положительный или отрицательный знак и значение от -5 до 5. для заданного числа y такого что amin<y<amax, вычислить: сумму элементов массива, значения модуля которых меньше y и произведение остальных элементов.

code: #delphi
  1. program Project2;
  2. {$APPTYPE CONSOLE}{сделано на консольном приложении}
  3. uses
  4.   SysUtils;
  5. const
  6. N=10;{размер массива}
  7. var i,y:integer;
  8.     sum,pr:extended;
  9.     A:array[1..N] of real;
  10. procedure Create;{Заполняем массив}
  11. begin
  12. Randomize();
  13.   WriteLn('Greate massiv A');
  14.   for i:= 1 to N do
  15.     begin
  16.       A[i]:=(Random(5)-Random(5))+(random(10)/10);
  17. {если нужна бОльшая разрядность увеличте с 10/10 до 100/100 и т.д.
  18. и не забудьте поставить в Write(:2) цифру 2 при выводе на экран}
  19.       Writeln(A[i]:1:1,' ');
  20.     end;
  21.     Writeln('');
  22. end;
  23. procedure SumPr(y:integer); {Ищем сумму и произведение}
  24. begin
  25. Sum:=0;
  26. Pr:=1;
  27.   for i:= 1 to N do
  28.     begin
  29.       if abs(A[i])then Sum:=Sum+A[i] else
  30.         Pr:=Pr*A[i];
  31.     end;
  32. end;
  33. begin
  34.  
  35. Create;
  36. Write('Enter Y : ');
  37. ReadLn(y);
  38. SumPr(y);
  39. {Вывод результатов}
  40. if Sum=0 then Writeln('4isel < ',y,' - NET, Sum = ',Sum:1:1)
  41.   else WriteLn('Sum 4isel, < ',y,' = ',Sum:1:1);
  42. if Pr=1 then Writeln('ispolzovani vse 4isela.')
  43.   else WriteLn('Proizvedenie ostalnih = ', Pr:1:1);
  44. readln;
  45. end.
Поделиться:

Похожие статьи:

теги: random, консольное приложение, студенты, одномерный массив, массив, вещественные числа