Pascal
Ввести одномерный массив, состоящий из т элементов. Найти количество положительных и отрицательных элементов в данном массиве.
Ответы
Ответ дал:
0
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ReadArrInteger('Введи элементы массива:', n);
var (kn, kp) := (0, 0);
for var i := 0 to a.High do
if a[i] < 0 then
Inc(kn)
else if a[i] > 0 then
Inc(kp);
Write('Отрицательных: ', kn, ', положительных: ', kp)
end.
Приложения:
![](https://st.uroker.com/files/915/915a8986664e5a7bd3576d7914042df0.jpg)
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад