Сложноооо невозможно это нереальноооооооооооооооооооо прости но я незнаю
Ответ прилагается на фото
Program d1;
var
x1,x2,y1,y2,d:Real;
begin
Read(x1);
Read(x2);
Read(y1);
Read(y2);
//d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
write('Ðàñòîÿíèå ìåæäó òî÷êàìè: ',d);
end.
Const n=5;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
writeln('Массив A в обратном порядке:');
for i:=n downto 1 do write(a[i]:4);
writeln;
end.
Пример:
<span>Массив A:
37 39 41 9 25
Массив A в обратном порядке:
25 9 41 39 37</span>
Ето рандомный ответ будет, на него невозможно дать правильный точно ответ
Можно кидать и 22 раза, а можно и за 4