Var a:array[1..10000] of integer; i,n,min:integer; begin writeln('Кол-во элементов массива'); readln(n); for i:=1 to n do read (a[i]); min:=1; for i:=2 to n do if a[min]>a[i] then min:=i; a[min]:=0; for i:=1 to n do write(a[i],' '); end.
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу. 2. Немного изменим ваш код и получим искомое значение x Искомое число х = 16293
var x, y, a, b, k: integer;
begin k:=10000; repeat x:=k; a := 0; b := 0; y := 1; while x > 0 do begin if (x mod 10) mod 2 = 0 then a := a * 10 + x mod 10 else begin y := y * 10; b := b * 10 + x mod 10 end; x := x div 10 end; a := a * y + b; k := k + 1; until a = 26391; writeln(a:8, k-1:8); end.
Для облегчения выкладок разделим эти 64 множителя на шесть групп по 10 двоек в каждой и одну последнюю группу из четырех двоек. Произведение 10 двоек, как легко убедиться, равно 1024, а четырех двоек— 16. Значит, искомый результат равен 1024 X 1024 X 1024 X 1024 X 1024 X 1024 X 16.Перемножив 1024 X 1024, получим 1 048 576.Теперь остается найти 1048 576X1048 576X1048 576X16, отнять от результата единицу — и нам станет известно искомое число зерен: 18 446 744 073 709 551615. Известно, что кубический метр пшеницы вмещает около 15 миллионов зерен. Значит, награда шахматного изобретателя должна была бы занять объем примерно в 12 000 000 000 000 куб. м. Кстати, это геометрическая прогрессия и ее нужно было кидать в раздел "математика".
a:array[1..10000] of integer;
i,n,min:integer;
begin
writeln('Кол-во элементов массива');
readln(n);
for i:=1 to n do
read (a[i]);
min:=1;
for i:=2 to n do
if a[min]>a[i] then
min:=i;
a[min]:=0;
for i:=1 to n do
write(a[i],' ');
end.