• Выводится на экран последовательность 20 случайных чисел из промежутка [-10,10]. Определить количество отрицательных чисел больших -5 в данной последовательности.

Ответы 1

  • Если используется Pascal.ABC, то строку massiv[i] := random(-19)+10; нужно заменить на massiv[i] := random(-10, 10);const    countOfElements = 20;var    i, countOfNumbers, randomNumber: integer;    massiv : array[1..countOfElements] of integer;begin    Randomize;    countOfNumbers := 0;    for i:=1 to countOfElements do     begin         massiv[i] := random(-19)+10;        if ( (massiv[i] < 0) AND (massiv[i] > -5) ) then countOfNumbers += 1;    end;    writeln(countOfNumbers);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years