Непосредственно сортировка:
for (i = 0; i < N; i++)
for (j = 1; j < N - i ; j--)
if (<span>a[i,i] > a[i+1, i+1] </span>)
{
int temp = a[i,i];
a[i,i] = a[i - 1, i - 1];
a[i - 1, i - 1] = temp;
}
Var a,b,c,y,x,min,max:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(x);
writeln('Введите пятое число');
readln(y);
if a > b then max :=a else max :=b;
if max < c then max:=c;
if max < y then max:=y;
if max < x then max:=x;
writeln('Максимальное число = ',max);
end.
Я плохой художник)
A) A:=round(10*2 div 2 mod 5 / 3) - trunc (sqrt(4))=
round(20 div 2 mod 5/3)-trunc(2)=round(10 mod 5/3)-2=round(0/3)-2=-2
b) M:=succ(round (15 / 2) -pred (13))=suncc(round(7.5)-12)=succ(8-12)=suncc(-4)=-3
<span>c) Y:=round(13.99) mod 5+ trunc(sqrt(121))-125 div trunc(100/8)=
14 mod 5+trunc(11)-125 div trunc(12.5)=4+11-125 div 12=15-10=5</span>
Program nau;
var s,m,t: real;
begin
writeln ('введите расстояние и среднюю скорость движения');
readln (s,m);
t:=(s/m)*60;
writeln('время, потраченное на дорогу, в минутах = ',t);
<span>end.</span>