100% 3 способа тв что ето же проще простого
Const n=10;
var a:array[1..n+1] of integer;
i,j,b:integer;
begin
Randomize;
writeln('Исходный массив:');
a[1]:=random(51);
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=a[i-1]+random(51);
write(a[i],' ');
end;
writeln;
write('b = ');
readln(b);
j:=1;
while (j<=n)and(a[j]<b) do j:=j+1;
for i:=n downto j do a[i+1]:=a[i];
a[j]:=b;
for i:=1 to n+1 do write(a[i],' ');
end.
Пример:
Исходный массив:
3 21 47 74 104 134 146 177 184 222
b = 120
3 21 47 74 104 120 134 146 177 184 222
Оно не будет повторяться,так как тут даже нету операторов для повтора.
Объяснение:
#количество чисел - единственное число в первой строке
n = int(input())
#ввод элементов массива - все числа на второй строке
a = [float(x) for x in input().split()]
#сумма отрицательных чисел
sum_neg = sum(x for x in a if x < 0)
iMin, iMax = 0, 0
for i in range(len(a)):
if a[iMin] > a[i]:
iMin = i
if a[iMax] < a[i]:
iMax = i
product = 1
for i in range(iMin+1, iMax):
product *= a[i]
a.sort()
print('sum = {}, product = {}'.format(sum_neg, product))
print('sorted array:', *a)
var a,b,c:string;
begin
readln(a);
readln(b);
if (pos(b,a))<>0 then writeln('est simvol');
c:=copy(a,1,pos(' ',a)-1);
writeln(c);
writeln(copy(a,pos(' ',a)+1,length(a)-pos(' ',a)+1),' ',copy(a,1,pos(' ',a)-1));
end.
