var a,b: array[1..10] of Integer;
i,n: integer;
begin
n:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
begin
if a[i]<>0 then
begin
b[n]:=a[i];
inc(n);
end;
end;
if n=1 then writeln('Элементов нет') else
for i:=1 to n-1 do writeln(b[i]);
end.
Манипулятор (мышь) ну или другие указывающие устройства
При использовании 256 цветов для хранения одного пикселя требуется log(2)256 = 8 бит, при использовании 2 цветов - log(2)2 = 1 бит.
70 байт = 70*8 бит
Пусть K - количество точек изображения. Тогда 8*K - 1*K = 70*8 ⇒ K = 80
Размер исходного файла = 8*80 = 640 бит = 80 байт
var
a,b,c:array [1..20] of integer;
i,k,l:integer;
begin
randomize;
k:=1;
l:=1;
writeln ('Исходный массив: ');
for i:=1 to 20 do
begin
a[i]:=random(9)+1;
if a[i] mod 2 = 0 then
begin
b[k]:=a[i];
inc(k);
end else
begin
c[l]:=a[i];
inc(l);
end;
write (a[i],' ');
end;
k:=k-1;
l:=l-1;
writeln;
writeln ('Массив четных чисел');
for i:=1 to k do write (b[i],' ');
writeln;
writeln ('Массив нечетных чисел');
for i:=1 to l do write (c[i],' ');
writeln;
readln;
end.
Мультфильм про самых лучших мам или учительниц:*