Задать вопрос
21 февраля, 20:32

Нужна программа полная по Паскалю.

Дано N целых чисел, полученных от датчика случайных чисел в диапазоне от - 1000 до 1000.

В цикле for найти среднее значение чисел, кратных числу M, заданному с клавиатуры.

+4
Ответы (1)
  1. 21 февраля, 21:29
    0
    Var

    N, M, S, A, i, j:integer;

    Begin

    S:=0;

    j:=0;

    Write ('N = ') ; Read (N) ;

    Write ('M = ') ; Read (M) ;

    For i: = 1 to N do

    Begin

    A:=random (2001) - 1000;

    Write (A,' ') ;

    if A mod M = 0 then

    Begin

    S:=S+A;

    j:=j+1;

    End;

    End;

    WriteLn;

    if j=0 then Write ('Чисел, кратных ', M,' нет')

    else Write ('Среднее арифметическое чисел, кратных ', M,' = ', S/j) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Нужна программа полная по Паскалю. Дано N целых чисел, полученных от датчика случайных чисел в диапазоне от - 1000 до 1000. В цикле for ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Дано N целых чисел, полученных от датчика случайных чисел в диапазоне от - 1000 до 1000. В цикле for найти среднее значение чисел, кратных числу M, заданному с клавиатуры. Результаты выдать на экран. pascal
Ответы (1)
1) С помощью датчика случайных чисел получить к-вещественных чисел n (0
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)
1. for + random a. вывести случайное количество случайных чисел b. вывести на экран 10 случайных чисел c. вывести на экран 10 случайных чисел, значение которых лежит в отрезке [0,10] d.
Ответы (1)
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое нечетных элементов массива с нечетными индексами. выведите на экран исходный массив и полученное среднее арифметическое. 2.
Ответы (1)