Задать вопрос Регистрация
Помочь другим

  • Составить программу которая формирует массив из 9 случайных целых чисел на промежутке от -30,30 и вычислите:
    а) сумму отрицательных чисел

    б) произведение чётных чисел

Ответы 2

  • где здесь а) где здесь б) ? и что такое randomize?

    • Автор:

      jerome
    • 6 лет назад
    • 0
  • var   mas: array [1..9] of integer;   summ, count: integer;   i: integer;begin    randomize;   summ := 0;   count := 1;   for i := 1 to 9 do   begin      mas[i] := random(-30, 30);      write(mas[i] : 4);      if mas[i] < 0 then summ := summ + mas[i];      if mas[i] > 0 then count := count * mas[i];   end;   writeln('');   writeln('Сумма отрицательных элементов: ', summ);   writeln('Произведение положительных элементов: ', count);end.

    • Автор:

      kenny
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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