Предмет: Информатика,
автор: marinamarinali
составить схему алгоритма определения количества положительных и отрицательных элементов в массиве X[N].
vadimcha1:
что значит схему
что выводить на экран?
sgncalc(диапазон ячеек, -1) - число отрицательных элементов
sgncalc(диапазон ячеек, 0) - число нулевых элементов
sgncalc(диапазон ячеек, 1) - число положительных элементов
Function sgncalc(a As Range, signum As Integer) As Integer
Dim r As Range
Dim b(-1 To 1) As Integer
For Each r In a
b(Sgn(r)) = b(Sgn(r)) + 1
Next
sgncalc = b(signum)
End Function
Excel VBA
sgncalc(диапазон ячеек, 0) - число нулевых элементов
sgncalc(диапазон ячеек, 1) - число положительных элементов
Function sgncalc(a As Range, signum As Integer) As Integer
Dim r As Range
Dim b(-1 To 1) As Integer
For Each r In a
b(Sgn(r)) = b(Sgn(r)) + 1
Next
sgncalc = b(signum)
End Function
Excel VBA
Ответы
Автор ответа:
1
Ответ:
Все написано извиняюсь если что-то не правильно
Приложения:
Автор ответа:
1
Var
X:array[1..1000]of integer;
N,polo,otri,k:integer;
Begin
Readln(k);
For n:=1 to k do
Read(x[n]);
For n:=1 to k do
If x[n]<0 then inc(polo)
Else
Inc(otri);
Writeln(polo);
Writeln(otri);
End.
За ошибки извиняюсь
Похожие вопросы
Предмет: Қазақ тiлi,
автор: asminajtkuzinova
Предмет: Қазақ тiлi,
автор: aslai09krg
Предмет: Алгебра,
автор: karina209820
Предмет: Геометрия,
автор: Nevidima1997
Предмет: Математика,
автор: Tim12042005