Ну мы в школе по этой программе с котом <span>на ярлыке </span>роботали
Const
n = 10;
var
i, min, max: integer;
a: array[1..n] of integer;
begin
min := 1; max := 1;
for i := 1 to n do
begin
a[i] := random(101);
write(a[i]:4);
if (a[i] > a[max]) then
max := i;
if (a[i] < a[min]) then
min := i;
end;
i := a[max];
a[max] := a[min];
a[min] := i;
writeln();
for i := 1 to n do
write(a[i]:4);
end.
1<span> это правовой инструмент, определяющий использование и распространение по</span>, защищённого авторским правом
2<span>свободно распространяемое п</span>о<span>, с возмездным (или возмездным при определенных условиях) использованием.
3</span>свободный софт<span> —по</span><span>, пользователи которого имеют права («свободы») на его неограниченную установку, запуск, а также свободное использование, изучение, распространение и изменение (совершенствование), и распространение копий и результатов изменения</span>
Var
n:Integer;
Begin
Writeln('Введите в градусах Цельсия');
Read(n);
Writeln('В Фаренгейтах это = ',(n*9/5)+32:0:1);
end.
var
a:real;
begin
readln (a);
a:=trunc (a); {trunc - это такая функция (уже готовая в самой программе), которая находит целую часть числа}
writeln ('Целая часть числа а равна ',a)
end.
если я правильно понял смысл