Задать вопрос
21 августа, 14:10

Задать случайным образом 7 чисел в интервале от 1 до 10. Найти их произведение и среднее арифметическое.

+5
Ответы (1)
  1. 21 августа, 14:28
    0
    var i, x, sum, ar:integer;

    randomize;

    For i=1 to 7 do begin

    x:=random (11) ;

    sum:=sum+x;

    end;

    ar:=sum/7;
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Задать случайным образом 7 чисел в интервале от 1 до 10. Найти их произведение и среднее арифметическое. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы