ТутРешу.Ру

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

Задание:

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

Решение:

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.




Знаете другой ответ?

Отправить свой ответ