Заполнить массив случайными числами на интервале от -10 до +15. распечатать исходный массив. подсчитать количество положительных и отрицательных. поменять знак у каждого элемента массива. распечатать. посчитать количество отрицательных и положительных

251

302

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

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

sevostyanova2002

Информатика

4,5(6 оценок)

Uses crt; const n=10; var a: array [1..n] of integer; i,p,o: integer; begin p: =0; o: =0; for i: =1 to n do begin a[i]: =random(27)-10; write(a[i],' '); if a[i]> 0 then inc(p); if a[i]< 0 then inc(o); end; writeln; writeln('положительных: ',p); p: =0; writeln('отрицательных: ',o); o: =0; for i: =1 to n do begin a[i]: =-a[i]; write(a[i],' '); if a[i]> 0 then inc(p); if a[i]< 0 then inc(o); end; writeln; writeln('положительных: ',p); writeln('отрицательных: ',o); end.