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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.