Только выложили а скоро экзамен( 1)напишите программу на языке программирования (или составьте алгоритм). проверить – совершенное ли число, введенное с клавиатуры. совершенное число – число, равное сумме своих делителей (не считать делителем числа само число, например, число 6 – совершенное: 1+2+3=6). 2 )напишите программу на языке программирования (или составьте алгоритм), осуществляющую сокращение простой дроби а\в. 3)напишите программу на языке программирования (или составьте алгоритм). заполнить массив в, состоящий из сорока элементов, случайными целыми числами из интервала [–30; 50] и найти максимальный элемент.

👇

Увидеть ответ

Ответ:

МилаКу

30.06.2021

C++ (Visual Studio)

4,6(69 оценок)

Открыть все ответы

Ответ:

aleksandrovadia1

30.06.2021

Объявим нужные переменные
Нам потребуется sum(сумма), average(ср. арифм), i(для цикла), n(кол-во чисел), x(введенное значение), count(счетчик нечетных)
Присваиваем переменной n(кол-во чисел) нужное значение.
Обнуляем summ и count
Организовываем ввод чисел с клавиатуры через цикл от 0 до n
Внутри цикла делаем проверку на четность, примерно так:
if x mod 2 = 1 then (mod 2 обозначает остаток от деление на 2)
А здесь увеличиваем переменную sum = sum + x
И счетчик count = count + 1

Теперь после того как все итерации пройдены
Переменная sum хранит значение суммы нечетных чисел.
А переменную average надо разделить на count. average = average / count
Так мы получим ср. арифметическое для всех нечетных чисел.

Выводим значение sum и average.

4,7(50 оценок)

Ответ:

NaightMar

30.06.2021

//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 чисел и находит сумму и среднее арифметическо