Задать вопрос
2 июля, 14:17

Задан массив А размерности N случайным образом.

Найти:

1 задача. Среднее арифметическое нечётных элементов

2 задача. Колическтво чётных элементов

(2 задачи отдельно)

+4
Ответы (1)
  1. 2 июля, 16:55
    0
    Program p1;

    Const N=10; //подставишь нужное N

    Var A:array[1 ... N] of integer;

    summa, kolvo, i:integer;

    Begin

    For i: = 1 to n do

    Begin

    A[i]:=random (101) - 50;

    Write (A[i],' ') ;

    End;

    Writeln;

    For i: = 1 to n do

    If a[i] mod 20 then

    Begin

    summa:=summa+A[i];

    kolvo:=kolvo+1;

    End;

    Writeln ('Среднее арифметическое = ', summa/kolvo) ;

    End.

    Program p2;

    Const N=10; //подставишь нужное N

    Var A:array[1 ... N] of integer;

    kolvo, i:integer;

    Begin

    For i: = 1 to n do

    Begin

    A[i]:=random (101) - 50;

    Write (A[i],' ') ;

    End;

    Writeln;

    For i: = 1 to n do

    If a[i] mod 2=0 then

    kolvo:=kolvo+1;

    Writeln ('Число чётных элементов = ', kolvo) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задан массив А размерности N случайным образом. Найти: 1 задача. Среднее арифметическое нечётных элементов 2 задача. Колическтво чётных ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы