Задать вопрос Регистрация
Помочь другим

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

    Найти:

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

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

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

Ответы 1

  • Program p1;Const N=10;//подставишь нужное NVar 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 2<>0 then Begin summa:=summa+A[i]; kolvo:=kolvo+1; End; Writeln('Среднее арифметическое = ',summa/kolvo);End.

     

     

    Program p2;Const N=10;//подставишь нужное NVar 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.

    • Автор:

      ramborn6o
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years