<span>from random import randint
A = [randint (160, 181) for i in range(12)]
srznach = <span>0
</span>print(A)
for i in range (12):
srznach= srznach + A[i]
srznach = srznach/<span>12
</span>print(srznach)
for i in range (12):
if A[i] <srznach:
</span> <span> A[i] = A[i]/<span>2
</span></span><span> else:
</span> <span><span> </span>A[i] = A[i]*<span>2
</span>print(A)</span>
На паскале:
Var x,y,max: integer;
Begin
Readln(x,y);
if x>y then
max:=x
else
max:=y;
Writeln(max);
End.
Program n;
var
m: array[1..10] of integer;
i,k: integer;
begin
writeln('Введите массив');
k:=0;
for i:=1 to 10 do begin
readln(m[i]);
if m[i]>0 then k:=k+1;
end;
writeln(k);
<span>end.
<em>Если я помогла,то отметь мой ответ лучшим,пожалуйста</em></span>
Var
i:integer;
begin
for i:=18 downto 1 do
write(i,' ');
end.
N=2^i
256=2^i
i=8 бит(на один символ)
V=80*8=640 бит=80 байт