Var A:array[1..5] of integer; i,O,P:integer; Begin Write('Введите массив A(5): '); O:=0; P:=0; For i:= 1 to 5 do Begin Read(A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
Заполнение случайными числами:
Const N = 5; Var A:array[1..N] of integer; i,O,P:integer; Begin Randomize; Write('Введите массив A(5):'); O:=0; P:=0; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(' ',A[i]); if A[i] < 0 then O:=O+1 else if A[i] > 0 then P:=P+1; End; WriteLn; WriteLn('Количество отрицательных: ',O); WriteLn('Количество положительных: ',P); End.
#include <iostream> #include <vector> using namespace std;
int main() { unsigned short int n; cout << "n = "; cin >> n; vector<int> a; int in, avg, s = 0, c = 0; for (int i = 0; i < n; ++i) { cout << "a[" << i << "] = "; cin >> in; a.insert(a.end(), in); if (i % 2 == 1) { s += a.back(); c++; } } avg = (int) s / c; cout << "Среднее арифметическое элементов на нечётных позициях: " << avg; return 0; }
Объяснение:
Надеюсь что это всё что я знаю