Const
n=10;var
a:array[1..n]of integer;
i,max1,max2,im1,im2:integer;
begin for i:=1 to n do
begin
a[i]:=random(21)-10;
write(a[i]:4);
end;
max1:=a[1];im1:=1;
for i:=1 to n do
if a[i]>max1 then
begin
max1:=a[i];
im1:=i;
end;
for i:=1 to n do
if (a[i]<=max1)and(i<>im1)and(a[i]>max2)then
begin
max2:=a[i];
im2:=i;
end;
writeln;
writeln('i: ',im1,' max1: ', max1,' i: ',im2,' max2: ',max2);
<span>end.</span>
Команда Повтори 4 раз<span> означает, что команды </span>Сместиться на (3, 3) и Сместиться на (1,−2)<span> выполнются четыре раза. В результате Чертёжник переместится на 4·(3 + 1, 3 − 2) = (16, 4). Выполнив последнюю команду </span>Сместиться на (−8, 12)<span>, Чертёжник окажется в точке (8, 16).
</span>ответ 1
1.
1200*14=16 800 (бит)
Ответ 16800 бит за 14 сек.
2.-?
Var a,b,c:integer;;
begin
writeln('введите три числа');
readln(a,b,c);
writeln('сумма первого и третьего числа 'a+c);
writeln('произведение первого и второго числа 'a*b);
end.
<span>1232345678910 + 1234567910 = </span>1233580246820