Onlineмektep - BilimLa x + г Etep.net Online Mektep - BilimLand Отзывы Изучи установленные параметры - id1855928520210513 от Ксюшка221 13.05.2021 22:51

Question

Информатика: Onlineмektep - BilimLa x + г Etep.net Online Mektep - BilimLand Отзывы Изучи установленные параметры и определи истинность утверждения: в данном документе имеются разрывы разделов. Параметры страницы Х Поля Размер бумаги Источник бумаги Поля Верхнее: 2 он 2 он Левое: 3 он Ножнее; Праѕое: Положение переплета: 1,5 от Переплет: Оо Слера Ориентация А А) номная альбомная страны неоколо страниц обен Образец Применить к текущему разделу К ТЕХушену разделу до конца документа По умолчание, NO BCENY AOKYNSHYY

Ксюшка221 · Accepted Answer

//PascalABC
//NaaMan
var
    N, sum, num, i : integer;
    A : array[1..10000] of integer;
    SA : real;
begin
    write('Укажите, сколько будет чисел > ');
    readln(N);
    write('Вводите элементы массива > ');
    // Обнуляем сумму
    sum := 0;
    // и количество искомых элементов
    num := 0;
    // Ввод элементов массива с одновременным подсчетом
    for i := 1 to N do begin
        // Ввод
        readln(A[i]);
        write('Ещё > ');
        // Если введённое нечётное, то
        if A[i] mod 2 = 1 then begin
            // добавляем к сумме
            sum := sum + A[i];
            // и считаем их количество
            num := num + 1;
        end;
        // Это среднее арифметическое
        SA := sum / num;
    end;

    writeln('Сумма элементов ', sum);
    writeln('Среднее арифметическое ', SA);
end.

Составьте программу , которая считывает с клавиатуры n чисел и находит сумму и среднее арифметическо

Составьте программу , которая считывает с клавиатуры n чисел и находит сумму и среднее арифметическо

MOGZ ответил