Составьте программу, которая формирует массив из 40 случайных целых…

Question

Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет среднее арифметическое нечетныхчисел.

Answer 1

96

rorik

03 апреля 2023

Program n1; Uses CRT; Const n=40; Var a: array[1… n] of integer; i,s,k: integer; beginClrScr; For i: =1 to n do begin a[i]: =random (21); write (a[i]: 3); if a[i] mod 2=1 then begin k: =k+1; s: =s+a[i]; end; end; Writeln ('Summa=',s,' Kolvo=',k,' Srednee arifm=',s/k: 4:4); readlnend.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: