Program adikalok;
uses crt;
const n=10;
var
a:array [1..10] of integer;
i,min,max:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
writeln('Элементы массива:');
{создание и вывод массива}
for i:=1 to n do
begin
a[i]:=random(100)-50;
write (a[i]:5);
end;
{ищем номера мин и мах}
min:=1;
max:=1;
for i:=1 to n do
begin
if a[min]>a[i] then min:=i;
if a[max]<a[i] then max:=i;
end;
if min<max then //min находится левее чем max
begin
for i:=max downto min+2 do
a[i]:=a[i-1];
a[min+1]:=0;
end
else //min находится правее чем max
begin
for i:=max to min do
a[i]:=a[i+1];
a[min]:=0;
end;
writeln();
writeln('Результат:');
for i:=1 to n do
write(a[i]:5);
end.
Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.
