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

  • Умоляю помогите!!

    найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива -10. Заполнение массива осуществить случайными числами от 50 до 100

Ответы 1

  • const n=10;

    var a:array[1..N] of real;

    i:integer;

    x:real;

    begin

    randomize;

    for i := 1 to n do

    a[i] := random (100)-50;

    readln(x);

    for i:=1 to n do

    if a[i]>x then p:=p*i;

    writeln(p);

    end.

    • Автор:

      eddy
    • 7 лет назад
    • 0

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

Еще вопросы

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

Войти через Google

 или

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

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

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