Город а находится в х милях от парижа.напишите программу, которая вычислит расстояние межд этими в км(5 миль=8 км)

Var x,y: real; begin     y: =8/5; {км в одной миле}     writeln('введите расстояние в милях');     readln(x);       writeln('расстояние в км:   ', x*y); end.

Const      n = 10;   var    a : array [1..n] of integer;   r : boolean;     i,j : integer;   begin  //формирование массива пропущено        r : = true;           while r do    begin      if a[i] mod 2 =0 then      begin        for j : = n-1 downto i + 2 do          a[j] : = a[j-1];         a[i+1] : = 0;         r : = false;       end;       i : = i +1;     end;     for i : = 1 to n do  writeln (a[i]);       end.во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)

Const   n = 20; var   a: array[1..n] of real;   i, imax, imin: integer;   r, rmax, rmin: real; begin   randomize;   writeln('элементы массива');   rmax: =-1; { заведомо меньше меньшего }   rmin: =100; { заведомо больше большего }   for i : = 1 to n do   begin       r: =random(10);       a[i]: =r;       write(r,' ');       if rmax< r then begin rmax: =r; imax: =i end;       if rmin> =r then begin rmin: =r; imin: =i end   end;   writeln;   { меняем местами и выводим результат }   a[imax]: =rmin; a[imin]: =rmax;   writeln('конечное состояние массива');   for i : = 1 to n do write(a[i],' ');   writeln end. тестовое решение: элементы массива 4 1 2 8 6 3 7 5 5 1 4 4 3 3 6 8 5 4 7 6 конечное состояние массива 4 1 2 1 6 3 7 5 5 8 4 4 3 3 6 8 5 4 7 6 видно, что первая восьмерка поменялась местами с последней единицей.