Задание:
Напишите в виде программы для паскаля. В массиве А (5) посчитать количество положительных и отрицательныхэлементов
Решение:
vara: array[1… 5] of integer; p,ot,i: integer; beginp: =0; ot: =0; for i: =1 to 5 doreadln (a[i]); for i: =1 to 5 do beginif a[i]>0 thenp: =p+1elseot: =ot+1; end; writeln ('polozitelnich=', p, ' otrizatelnich=', ot); end.
Знаете другой ответ?