Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. подсчитайте в этом массиве количество положительных и количество отрицательных значений.(на паскале)

180

398

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

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

hychkairyna

Информатика

4,8(14 оценок)

Program sadadasf; var i,l,h,g: integer; a: array[1..101] of integer; begin for i: =1 to 100 do begin l: =random(41)-20; a[i]: =l; if l< 0 then h: =h+1; if l> 0 then g: =g+1; end; writeln('количество отрицательных чисел: ', h); writeln('количество положительных чисел: ', g); end.