Дан массив из 20 элементов случайных чисел из диапазона [ -1;1] . Каких элементов больше, положительных , отрицательных или равных нулю.паскаль
Ответ оставил: Мненужнпомошь
Program n1;const n=20;var a: array[1..n] of integer;i,kn,ko,kp: integer;function max(a,b,c: integer): string;beginmax:=' ';if (a>b) and (a>c) then max:='0 больше'else ...