Решите задачу по информатике в программе паскаль, пожалуйста.
В массиве А(5) посчитать кол-во положительных и кол-во отрицательных чисел.
var
A : Array [1..5] of Integer;
i, e, k : Integer;
begin
e := 0;
k := 0;
// Здесь задаешь массив
for i := 1 to 5 do
if A[i] >= 0 then inc(e) else inc(k);
Writeln(Положительных , i)
Writeln(Отрицательных, i)
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
