1) program n_1; var a:array[1..10] of integer; i, n, k, s:integer; begin writeln('Введите кол-во элементов'); readln(n); k:=0; for i:=1 to n do begin a[i]:=random(20)+10; writeln(a[i],' '); if (i mod 2=0) then s:=s+a[i]; If (i mod 2<>0) then k:=k+1; end; writeln('Сумма=',s); writeln('Кол-во нечётных элементов=',k); end. 2) program kol_vo_elementov; var a:array[1..10] of integer; i, n, k, s:integer; begin writeln('Введите кол-во элементов'); readln(n); k:=0; for i:=1 to n do begin a[i]:=random(9)+1; writeln(a[i],' '); if (i mod 2=0) then k:=k+1; end; writeln('Кол-во чётных элементов=',k); end.
Объяснение:
Без неё сегодня - никуда/
81₁₆ = 129 = Б
A5₁₆ = 165 = е
A7₁₆ = 167 = з
20₁₆ = 32 = пробел
AD₁₆ = 173 = н
A5₁₆ = 165 = е
F1₁₆ = 241 = ё
20₁₆ = 32 = пробел
И ТАК ДАЛЕЕ...