Uses Crt;
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
Begin
ClrScr;
Write('Введите массив целых чисел X(',N,'): ');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i] > 0 then k:=k+1
End;
WriteLn('Количество положительных элементов X(',N,'): ',k);
ReadLn
End.
Пример работы программы:
Введите массив целых чисел X(10): 1 2 3 -4 -5 -6 7 8 9 0
Количество положительных элементов X(10): 6
N=2^4
I=24*24*4=2304 бит=288 байт
Это графическая информация
1.а
2.б
3.в
4.г
5.д
6.е
7.ё
8.ж
9.з
10.и
11.й
12.к
13.л
14.м
15.н
16.о
17.п
18.р
19.с
20.т
21.у
22.ф
23.х
24.ц
25.ч
26.ш
27.щ
28. Ъ
29.ы
30.ь
31.э
32.ю
33.я