Придумайте сложный пример, в котором ответ будет = 14

Question

Информатика: Придумайте сложный пример, в котором ответ будет = 14

morti3 · Accepted Answer

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; 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( Среднее арифметическое нечетных чисел= ,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);...

MOGZ ответил