найти ошибку в коде, пожалуйста

@Misha_Beginner · Регистрация: 12.09.2013

Author24 — интернет-сервис помощи студентам

Нам дан массив с 5 елементами: нужно посортировать в порядке убывания: (3,2;-6.3;-8.3;0.0;1.2),
Вот код:

Pascal

program laba7_3;
 const n=5;
 var m:array[1..n] of integer;
 k,i,j:integer;
 Begin
      writeln('Vvedit massiv');
      for i:=1 to n do
      read(m[i]);
          for i:=1 to n-1 do
          for j:=i+1 to n do
              if (m[j]>m[i]) then
                begin
                   k:=m[i];
                   m[i]:=m[j];
                   m[j]:=k;
              end;
      writeln('vidsort mas');
      for i:=1 to n do
      writeln(m[i],' ');
      readln(m[i]);
end.

но когда ввожу -6,3 выбивает: Ошибка времени выполнения: Входная строка имела неверный формат. Что то с типом переменной не так??? там где array??

@Puporev · 19.10.2013, 13:05

Pascal

1 2	var m:array[1..n] of real; k:real;

@Misha_Beginner · 19.10.2013, 13:08 **[ТС]**

да уже поправил благодарю все работает

@Misha_Beginner 5 / 5 / 12 Регистрация: 12.09.2013 Сообщений: 156
	19.10.2013, 13:08 [ТС]	3
	да уже поправил благодарю все работает 0