Question

ПОМОГИТЕ!!! дан одномерный массив из 30 элементов массива задать случайным образом от -30 до 30. посчититать количество элементов величина которых по модулю не превосходит 7

Answer 1

var

  a : array [1..30] of integer;

  count, i : integer;

begin

  count := 0;

  for i := 1 to 30 do

    a[i] := round (random (60)) - 30;

  for i := 1 to 30 do

    if abs (a[i]) <= 7 then inc (count);

  writeln (count);

end.