Вроде бы так... подправь если что)
uses crt;
const N=10;
var i,p:integer; a:array[1..N] of integer; {кол эл массива }
begin
p:=0;
writeln('введите исходный массив');
for i:=1 to N do {цикл по кол э}
begin
write('a[',i,']='); readln(a[i]); {ввод эл массива}
if (a[i] mod 2)=0 then p:=p+1;
end;
write('p='); writeln(p);
readln
end.
Напиши нц и кц перед нч например 9 раз не пеши раза а то ошибка будет нашми энтер и пеши вниз;закрасить потом вверх вниз закрасить всё через точку с запетой и всё
#include <iostream>
<span>using namespace std;
</span>int main() {
<span>int N,K,L;
</span><span>int</span><span /><span>gt=0,eg=0,lt=0;
</span><span> cout<<"N = "; cin>>N;
</span><span> cout<<"K = "; cin>>K;
</span><span> cout<<"элементы последовательности через пробел: ";
</span><span> for (int i=0; i<N;i++)
</span><span>{ cin>>L;
</span><span> if (L>K) gt++;
</span><span> if (L==K) eg++;
</span><span> if (L<K) lt++;
</span><span>}</span><span>
cout<<"меньше К: "<<lt<<endl;
</span><span> cout<<"равных К: "<<eg<<endl;
</span><span> cout<<"больших К: "<<gt<<endl;
</span><span> </span><span>
</span> system("pause");
<span> return(0);
</span><span>}
</span><span>
</span>
1.25 кб=1280 байт
байт=8 бит
1,25 кБ=10240 бит
В 10240 бит вместилось 2048 символов, потому что 10240 бит/2048 символов=5 бит/символ. 2^5=32
в итоге ответ: мощность алфавита 32 бита
Сортировка массива по убыванию
Объяснение:
type
massiv = array [1..10] of integer;
var
mass : massiv;
i , j , n , b: integer;
begin
randomize;
write('Введите длину массива : ');readln(n);
for i:=1 to n do
begin
mass[i] := random(10);
write(mass[i], ' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (mass[j] < mass[j+1]) then
begin
b := mass[j];
mass[j] := mass[j+1];
mass[j+1] := b;
end;
end;
writeln;
for i:=1 to n do
write(mass[i], ' ');
readln;
end.
