1)7*2=14
2)14-5=9
1)9*2=18
1)18*2=36
2)36-5=31
Ответ:12112
Const n=7;
var a : array[1..n] of integer; i : integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(30)+1;
write(a[i],',');
end;
writeln;
<span>end.</span>
var
A: array [1..11] of Real;
i, j, aj, ai: Integer;
amax, atmp, P: Real;
begin
Randomize;
WriteLn ('Исходный массив:');
for i := Low (A) to High (A) - 1 do begin
A [i] := Random * 100;
Write (A [i]:5:2, ' ');
end;
for i := Low (A) to High (A) - 1 do begin
A [i] := Round (A [i]);
end;
for i := Low (A) to High (A) - 1 do begin
amax := A [i];
aj := i;
for j := i to High (A) do begin
if A [j] > amax then begin
amax := A [j];
aj := j;
end;
end;
if i <> aj then begin
atmp := A [i];
A [i] := A [aj];
A [aj] := atmp;
end;
end;
WriteLn;
WriteLn ('Полученный массив:');
for i := Low (A) to High (A) - 1 do begin
Write (A [i]:5:2, ' ');
end;
WriteLn;
Write ('Введите число Р: ');
Read (P);
ai := High (A);
for i := Low (A) to High (A) - 1 do begin
if P > A [i] then begin
ai := i;
Break;
end;
end;
for i := High (A) downto ai + 1 do
A [i] := A [i - 1];
A [ai] := P;
WriteLn ('Массив после вставки:');
for i := Low (A) to High (A) do begin
Write (A [i]:5:2, ' ');
end;
end.
Выделение произвольной области
<span>Выбрать
</span><span>Резинка
</span><span>Заливка
</span><span>Экранная лупа
</span><span>Карандаш
</span><span>Кисть
</span><span>Распылитель
</span><span>Текст
</span><span>Линия
</span><span>Кривая
</span>Прямоугольник
Многоугольник
И т.д
Var sum,i:integer;
begin
for i:=100 to 1000 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма чисел кратных 3 равна ',sum);
end.<span>
</span>