Program n1; const n=10; var a: array[1..n] of integer; n3,n2,min,max,i,imin,imax,t: integer; begin randomize; writeln('введите диапазон (a;b) :'); write('a='); readln(n3); write('b='); readln(n2); write('сгенерированный массив: '); for i:=1 to n do begin a[i]:=random(n2-n3+1)+n3; write(a[i],' '); end; writeln; min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; for i:=1 to n do if a[i]=min then begin imin:=i; break; end; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; for i:=1 to n do if a[i]=max then begin imax:=i; break; end; t:=a[imax]; a[imax]:=a[imin]; a[imin]:=t; write('полученный массив: '); for i:=1 to n do write(a[i],' '); end.
Часть 1
1.
a, b, c, d = int(input()), int(input()), int(input()), int(input())
s = (a + b + c + d)/4
print(s)
2.
x, y = int(input()), int(input())
t = x
x = y
y = t
print(x, y, sep = "\n")
4.
from math import pi
L, D = float(input()), float(input())
R = (L - D) / (2 * pi)
print(R)
5.
from math import pi
R1, R2 = float(input()), float(input())
r = R1**2 - R2**2
S = pi * r
print(S)
6.
x, y = int(input()), int(input())
S = (2*x - y)*(x - y)
print(S)
Часть 2
1.
x, y = float(input()), float(input())
x, y = y, x
print(x, y)
2.
если нужно найти y = x * 5:
x = int(input())
y = x * 5
print(y)
если нужно найти y = :
x = int(input())
y = x ** 5
print(y)
3.
x = int(input())
y = 1 - 2*x + 3*x**2 - 4*x**3
print(y)
4.
x1, y1, x2, y2 = float(input()), float(input()), float(input()), float(input())
from math import sqrt
S = sqrt((x1 - x2)**2 + (y1 - y2)**2)
print(S)
const n=10;
var a: array[1..n] of integer;
n3,n2,min,max,i,imin,imax,t: integer;
begin
randomize;
writeln('введите диапазон (a;b) :');
write('a=');
readln(n3);
write('b=');
readln(n2);
write('сгенерированный массив: ');
for i:=1 to n do
begin
a[i]:=random(n2-n3+1)+n3;
write(a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do if a[i]<min then min:=a[i];
for i:=1 to n do if a[i]=min then begin
imin:=i;
break;
end;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=1 to n do if a[i]=max then begin
imax:=i;
break;
end;
t:=a[imax];
a[imax]:=a[imin];
a[imin]:=t;
write('полученный массив: ');
for i:=1 to n do write(a[i],' ');
end.