Написать программу по информатики для решения : в массиве рост юношей задан отрицательным числом, рост девушек положительным, определите отдельно средний рост юношей и девушек и можно это сделать как нибудь примерно так? 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..

171

173

Посмотреть ответы 2

Ответы на вопрос:

оксана726

Информатика

4,4(42 оценок)

//не люблю "примерно так" //pascalabc.net 3.2 сборка 1318 const n=10; var m,fm: real; mc,fmc,i: integer; val: array[1..n] of real; begin for 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.