Пожалуйста помогите написать программу по информатики для решения задачи: В массиве рост юношей задан отрицательным числом, рост девушек положительным, определите отдельно средний рост юношей и девушек и можно это сделать как нибудь примерно так? program xxx; var M,D,i,ran:integer; a:array [1..10] of integer; begin for i:=1 to 10 do ran:=100-random(200)+1; for i:=1 to 10 do if a[i]<0 then M:=M+a[i] else D:=D+a[i]; write (M,' '); write (D,' ') end..

//Не люблю "примерно так"//PascalABC.NET 3.2 сборка 1318Const  n=10;  Var   m,fm:real;  mc,fmc,i:integer;val:array[1..n] of real;beginfor i:=1 to n do  begin    readln(val[i]);    if val[i]>0 then       begin        inc(fmc);        fm+=val[i];      end     else     if val[i]<0 then      begin        inc(mc);        m+=abs(val[i]);      end      else      begin        writeln('Funny joke!(no)');        exit;      end; end;writeln('Male average=',m/mc);writeln('Female average=',fm/fmc);end.