254 : 2 = 127 (остаток от деления 0)
127 : 2 = 63 ( остаток от деления 1)
63 : 2 = 31 ( остаток от деления 1)
31 : 2 = 15 ( остаток от деления 1)
15 : 2 = 7 ( остаток от деления 1)
7 : 2 = 3 ( остаток от деления 1)
3 : 2 = 1 ( остаток от деления 1)
Остаток от деления записывается в обратном порядке, получаем:
254 = 11111110
Алгоритм конец есть начало и конец
Const Sz = 100; // Размер массива
var
b,a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k, i: integer;
begin
k:=0;
N := 20;
writeln ('chisla');
for i:=1 to N do begin
a[i] := Random(60)-30;
write (a[i],' ');
end;
writeln;
writeln ('---------------------------------------------');
for i:=1 to n do begin
if ((a[i]<=5) and (a[i]>0)) then
begin
k:=k+1;
write (i,' ');
end;
end;
if (k=0) then
write('no');
end.
Const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then k:=k+1;
writeln('Четных чисел: ',k);
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
if i mod 2=1 then write(a[i]:4);
writeln;
end.
Пример:
<span>Массив A:
13 77 63 94 75 87 22 56 59 42
Четных чисел: 4
Элементы с нечетными номерами:
13 63 75 22 59</span>