Написать программу. Ввести одномерный массив из целых чисел. Подсчитать во сколько раз сумма четных чисел массива превосходит среднее арифметическое всех чисел массива?

+2
Ответы (1)
  1. 9 июля, 15:11
    0
    program zvvz1;

    const n = 12; / / задаем в массиве элементов количество

    var i, k, s:integer; / / задаем целого типа переменные

    m:array [1 ... n] of integer;

    begin

    for i: = 1 to n do / / n чисел получаем случайных и в массив записываем их

    m[i]: = random (51);

    for i: = 1 to n do / / на экран выводим массив полученный

    write (m[i],' ');

    writeln; / / переходим для вывода ответа на новую строку

    for i:=1 to n do

    s: = s + m[i]; / / получаем сумму всех

    for i: = 1 to n do

    if m[i] mod 2 = 0 then k: = k + m[i]; / / получаем четных сумму

    write (' сумма четных чисел массива превосходит среднее арифметическое всех чисел массива в ', (s/n) / k:5:2, ' раз '); / / ответ выводим

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Текст, содержащий 16 384 символа занимает в памяти компьютера 22 Кбайта. Определите, сколько битов выделяется на каждый символ. Сколько различных символов можно использовать при такой кодировке?
Ответы (1)
Статья, набранная на компьютере, содержит 64 страницы, на каждой странице 40 строк, в каждой строке 64 символа. Определите размер статьи в кодировке КОИ-8, в которой каждый символ кодируется 8 битами.
Ответы (1)
Выполните сложение в двоичной системе: а) 1010111_2 + 110101_2; г) 10111_2 + 101110_2; б) 1011111_2 + 111011_2; д) 111011_2 + 11011_2; в) 101101_2 + 11111_2; е) 111011_2 + 10011_2.
Ответы (1)
Подчеркни названия зверей: ВОЛК, СЛОН, ГУСЬ, МЫШЬ, ОКУНЬ.
Ответы (1)
Определите значение переменных а и i после выполнения фрагмента программы. a) s:=0; i : =0; while il do begin s:=s+1/i; i:=i-1; end; s i i >1
Ответы (1)
125 в пятиричной системе счисления
Ответы (1)
Используя датчик случайных чисел, заполнить двумерный массив не повторяющимися числами. Нужно на языке Паскаль.
Ответы (1)
в кодировке кои-8 каждый символ кодируется одним байтом. определите количество символов в сообщени, если информационный обьем сообщения в этой кодировке равен 120 бит.
Ответы (1)
1. Дано целое число, лежащее в диапазоне 1-999. Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т. д. 2. Даны 3 переменные вещественного типа: А, В, С.
Ответы (1)
что такое графическая модель
Ответы (1)