Question

4. Сформировать массив из п случайных чисел на
промежутке [-30;30].
Найти сумму чисел меньших 3.​

Answer 1

Ответ:

program ArraySum;

var

 a: array of Integer;

 n, i, s: Integer;

begin

 Write ('Введите размерность массива: ');

 ReadLn (n);

 SetLength (a, n);

 Randomize;

 for i := Low (a) to High (a) do begin

   a [i] := Random (61) - 30;

   Write (a [i], ' ');

 end;

 s := 0;

 for i := Low (a) to High (a) do begin

   if a [i] < 3 then

     s := s + a [i];

 end;

 WriteLn;

 WriteLn ('Сумма чисел меньших 3 = ', s);

 ReadLn;

end.