На скрине всё видно, ну а вообще среднее значение - это сумма чисел делённая на их количество, тогда получается (1+4)/2=2,5
Хлеба ни куска, так и в горле тоска.<span>Чеснок да редька - так и на животе крепко.
</span>Завтрак съешь сам, обед раздели с другом, ужин - отдай врагу.Когда я ем я глух и нем.недосол-на столе,пересол-на спине...<span><span>Без блина не маслена; без пирога не именинник.
Без ложки и добрый едок станет.
Без соли и хлеб не естся.
Без соли невкусно, а без хлеба несытно. Без соли стол кривой.
</span></span>
Программа находится во вложении, надеюсь поможет.
Var n,k,m: integer;
begin
write('число: '); readln(n);
m:=1;
k:=trunc(log2(n));
if (k mod 2)=1 then m:=m shl (k-1)
else m:=m shl k;
repeat
write(m,' ');
m:=m shr 2;
until m<2;
<span>end.
</span>
1 задача
var a, b, s, i, k:integer;
z:array[1..10] of integer;
begin
s:=1;
For i:=1 to 10 do
begin
z[i]:=random(16)-10;
if z[i]<0 then
begin
k:=sqr(z[i]);
s:=s*k;
end;
end;
For i:=1 to 10 do
begin
write (z[i], ' ');
end;
writeln ();
writeln ('Произведение квадратов равно ', s);
<span>end.</span>