Помогите пажалуйста. Очень надо решить!

Question

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

Answer 1

56

laisan

05 марта 2023

vara: array [1… 40] of integer; k,i,s: integer; sr: real; beginrandomize; for i: =1 to 40 do begina[i]: =random (21); write (a[i],'); end; writeln; for i: =1 to 40 doif odd (i)=true then begink: =k+1; s: =s+a[i]; end; sr: =s/k; writeln (sr: 3:4); readln; end.

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

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

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

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

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