Задание:
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет среднее арифметическое нечетныхчисел.
Решение:
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.
Знаете другой ответ?