• Помогите плиз) информатика
    Ввод 10 элементов массива случайным образом из диапазона от (-50,50). Посчитать кол-во отрицательных чисел. Написать программу

Ответы 1

  • var  a: array[1..10] of integer;  i, n: integer;begin  for i := 1 to 10 do   begin    a[i] := random(101) - 50;    if a[i] < 0 then n := n + 1;    write(a[i]:4);  end;  writeln;  writeln('Количество отрицательных = ', n);end.Тестовое решение  30   1 -23 -36  15 -40  18  38  43  47Количество отрицательных = 3
    • Автор:

      ty237
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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