Составьте программу, которая формирует массив из 40 случайных чисел от 0 до 20 и вычисляет:а) среднее арифметическое нечетных чи
Составьте программу, которая формирует массив из 40 случайных чисел от 0 до 20 и вычисляет: а) среднее арифметическое нечетных чисел б) сумму чисел, не превышающих 10 в) сумму чисел, кратных 3 На экран выводятся исходные значения и результаты вычислений. Только а, б и в нужно написать как отдельные задачи, а не как одна. Пожалуйста, помогите. Очень срочно, завтра сдавать!
A) program a1; uses crt; var m:array[1..40]of integer; i:byte; a,ka:integer; begin clrscr; a:=0;ka:=0; for i:=1 to 40 do begin m[i]:=random(21); if m[i] mod 2<>0 then begin ka:=ka+1; a:=a+m[i]; end; end; <span>for i:=1 to 40 do
if i=1 then write('M[',m[i],',')
else
if i=40 then writeln(m[i],']')
else
write(m[i],',');</span> writeln('Среднее арифметическое нечетных чисел=',a/ka); end. b) program b1; uses crt; var m:array[1..40]of integer; i:byte; b:integer; begin clrscr; for i:=1 to 40 do begin m[i]:=random(21); begin if m[i]<=10 then b:=b+m[i]; end; end; <span>for i:=1 to 40 do
if i=1 then write('M[',m[i],',')
else
if i=40 then writeln(m[i],']')
else
write(m[i],',');</span> writeln('Сумма чисел не превышающих 10=',b); end. в) program v1; uses crt; var m:array[1..40]of integer; i:byte; c:integer; begin clrscr; for i:=1 to 40 do begin m[i]:=random(21); begin if m[i] mod 3=0 then c:=c+m[i]; end; end; for i:=1 to 40 do if i=1 then write('M[',m[i],',') else if i=40 then writeln(m[i],']') else write(m[i],','); writeln('Сумма чисел кратных 3 = ',c); end.
1) var a: array [1..40] of integer; i, s1, s2: integer; begin for i := 1 to 40 do begin a[i] := random(20); writeln('a[', i, '] => ', a[i]); if (a[i] mod 2 = 1) then begin s1 := s1 + a[i]; inc(s2); end; end; writeln(s1 / s2); <span>end.
2) var a: array [1..40] of integer; i, q: integer; begin for i := 1 to 40 do begin a[i] := random(20); writeln('a[', i, '] => ', a[i]); if (a[i] <= 10) then q := q + a[i]; end; writeln(q); <span>end.
3) var a: array [1..40] of integer; i, w: integer; begin for i := 1 to 40 do begin a[i] := random(20); writeln('a[', i, '] => ', a[i]); if (a[i] mod 3 = 0) then w := w + a[i]; end; writeln(w); <span>end.</span></span></span>