ПОМОГИТЕ!!! дан одномерный массив из 30 элементов массива задать случайным образом от -30 до 30. посчититать количество элементов величина которых по модулю не превосходит 7
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
9 лет назад
9 лет назад