Регистрация
lamowitska
19.05.2023 15:37
Информатика
Есть ответ 👍

Задан массив а размерности n случайным образом. найти: 1 . среднее арифметическое нечётных элементов 2 . колическтво чётных элементов (2 отдельно)

255
464
Посмотреть ответы 2

Ответы на вопрос:

Anatoliy1111111
Anatoliy1111111
4,4(84 оценок)

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.

ludamechta
ludamechta
4,8(17 оценок)
Переменная с - не изменится

Популярно: Информатика