ОС-это операционная система? или я тупой.
1. var a:array[1..10] of integer;
n, i: integer;
s:real;
begin
for i:=1 to 10 do
readln(a[i]);
s:=0;n:=0;
for i:=1 to 10 do
if a[i]>28 then begin s:=s+a[i]; n:=n+1 end;
if n>0 then writeln(n,s/n) else writeln('net >28')
end.
Const
n = 10;
var
i, c: integer;
a, w: array[1..n] of integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i], ' ');
end;
writeln;
c := 0;
for i := 1 to n do
if a[i] > 0 then
begin
c := c + 1;
w[c] := a[i];
end;
writeln('Кол-во положительных элементов: ', c);
for i := 1 to n do
begin
if a[i] <= 0 then
begin
c := c + 1;
w[c] := a[i];
end;
end;
writeln('Результат:');
for i := 1 to c do
write(w[i], ' ');
end.
128 это 2 в седьмой степени, значит на каждый символ приходится по 7бит.
1) 11011-110= 110
2) 10001-1110= 10
3) 100010-100= 11010
4) 101011- 1111= 11100
5) 1001*101=101101
6) 1001*11=11011
7) 1001+11=1100
8) 110+110=1100
9) 1100111+10011=1111010
10) 111000-11101=11011
11) 10011-10010=1
12) 110101*11101=10011011001
13) 1110101*11101=11010100001
14) 11100010-1110001=1110001