Получить ответ

Вилия const n=100; var mas: array [1..n] of integer; i, k_pol, k_otr :integer; sum, pr:real; begin clrcsr; sum:=0; pr:=1; k_pol:=0; k_otr:=0; for i:=1 to n do mas:=random(100)-50; for i:=t to n do begin if mas>0 then begin k_pol:=k_pol+1; sum:=sum+mas; end; if mas<o>; end; end; writeln( 'кол-во положит: ', k_pol); writeln('кол-во отриц: ', k_otr); writeln('сумма положит: ', sum); writeln('произведен отриц: ', pr); end. 13.10.16

Еva от 100 p. 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы