Дан массив из n целых чисел.выяснить,какое число встречается в массиве чаще-положительное или отрицательное.

136

401

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

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

kofer

Информатика

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

Var a: array[1..1000] of integer; n,i,kp,ko: integer; begin randomize; write('введите количество элементов массива n='); readln(n); for i: =1 to n do begin a[i]: =random (100)-50; write(a[i],' '); end; ko: =0; kp: =0; for i: =1 to n do if a[i]> 0 then kp: =kp+1 else if a[i]< 0 then ko: =ko+1; if ko> kp then writeln('чаще встречаются отрицательные числа') else if ko< kp then writeln('чаще встречаются положительные числа') else writeln('количество положительных равно количеству положительных'); end.