Решите задачу по информатике в программе паскаль, пожалуйста.
В массиве А(5) посчитать кол-во положительных и кол-во отрицательных чисел.
var A:array[1..5] of real;
i, n_neg, n_pos: integer;
begin
n_neg := 0;
n_pos := 0;
for i := 1 to 5 do
readln(A[i]);
for i := 1 to 5 do
if (A[i] < 0) then
inc(n_neg)
else if (A[i] > 0) then
inc(n_pos);
writeln(Positives: , n_pos, , negatives: , n_neg)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
