Const n=10;
var a:array[1..n] of integer;
max,min,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
if i mod 2 = 1 then a[i]:=min else a[i]:=max;
end;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
<span>31 35 3 5 26 46 9 31 30 11
31 35 3 35 3 46 3 46 3 46 </span>
Очевидно, в условии опечатка.
Если "70 символов в строке, <span>28 строк, 7 страниц. 64 символа в алфавите", то
64 = 2^i
i = 6 бит на символ
70*28*7*6 = 82320 бит = 10290 байт ≈ 10 кбайт.
Если </span>"70 символов в алфавите, 28 строк, 7 страниц. 64 символа в строке", то ищем ближайшую целую степень двойки, такую, что
70 <= 2^i
2^6 = 64 < 70
2^7 = 128 > 70
i = 7
И тогда объём равен: 7*70*28*7 = 96040 бит = 12005 байт <span>≈ 11,7 кбайт.</span>
Верная формула - <span>С) =Н7+СУММ(В8:С9)
</span>А) =2А*8; и В) =B+Y8/5 неверно указаны имена ячеек <span>
Е) =8В3+9 - пропущен знак операции
</span>D) =D3:3 неверно указан знак операции (:)
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (n,s,k):=(-8,0,0);
repeat
s+=n; k+=1;
n+=4
until n>4;
Writeln('Сумма=',s,', количество слагаемых ',k)
end.
<u>Результат</u>
Сумма=-8, количество слагаемых 4
