Нет перегруженной подпрограммы с такими типами параметров

@sdfteh · Регистрация: 13.10.2015

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

Pascal

program n2n;
var n,k:real;
    a:array of real;
    i,p:byte;
    f1,f2:text;
begin
 assign(f1,'imput.txt');
 assign(f2,'output.txt');
 reset(f1);
 readln(f1,n);
 n:=n+1;
 setlength(a,n);
 p:=0;
 for i:=0 to n do
  read(f1,a[i]);
 while p<>n do
   if (a[p+2]>=a[p+3]) and (a[p+3]<>-1) then
  begin
   p:=p+3;
   k:=k+a[p+3]
  end
  else 
   if (a[p+1]>=a[p+2]) and (a[p+2]<>-1) then
   begin
    p:=p+2;
    k:=k+a[p+2]
   end
   else 
   begin
    p:=p+1;
    k:=k+a[p+1]
   end;
 rewrite(f2);
 write(f2,k)
end.

выдаёт ошибку:
Program1.pas(12) : Нет перегруженной подпрограммы с такими типами параметров
уже не знаю что делать помогите
программа должна найти минимальное число равное сумме значений на которых она была прыгая по массиву и не наступая на -1, причём длина массива вводится из файла как и значения массива(через пробел)

@volvo · 01.11.2015, 13:32

n должна быть целочисленной переменной, а не вещественной, чтобы ее можно было использовать в SetLength

@sdfteh · 01.11.2015, 14:23 **[ТС]**

теперь это
Ошибка времени выполнения: System.FormatException: Input string was not in a correct format.
Стек:
at PABCSystem.PABCSystem.Read(Text f, Double& x) in D:\программы\PascalABC.NET\LibSource\PABCSystem.pas:line 4228
at svidanie.svidanie.$Main() in C:\PABCWork.NET\Свидание\Program1.pas:line 16
at Program1.Program.Main()
Программист из меня никакой а заставляют(((

@volvo · 01.11.2015, 14:25

Это уже нужно смотреть на файл, из которого читаются данные.

@sdfteh · 01.11.2015, 15:02 **[ТС]**

15
3 2 -1 0 1 1 -1 -1 3 0 2 2 1 3 1
с пробелами

@Соколиный глаз · 03.11.2015, 19:00

Парамметры длины массива Setlength не должны быть вещественными

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	01.11.2015, 13:32	2
	n должна быть `целочисленной` переменной, а не вещественной, чтобы ее можно было использовать в SetLength 0

@sdfteh 0 / 0 / 0 Регистрация: 13.10.2015 Сообщений: 8
	01.11.2015, 14:23 [ТС]	3
	теперь это Ошибка времени выполнения: System.FormatException: Input string was not in a correct format. Стек: at PABCSystem.PABCSystem.Read(Text f, Double& x) in D:\программы\PascalABC.NET\LibSource\PABCSystem.pas:line 4228 at svidanie.svidanie.$Main() in C:\PABCWork.NET\Свидание\Program1.pas:line 16 at Program1.Program.Main() Программист из меня никакой а заставляют((( 0

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	01.11.2015, 14:25	4
	Это уже нужно смотреть на файл, из которого читаются данные. 0

@sdfteh 0 / 0 / 0 Регистрация: 13.10.2015 Сообщений: 8
	01.11.2015, 15:02 [ТС]	5
	15 3 2 -1 0 1 1 -1 -1 3 0 2 2 1 3 1 с пробелами 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 9
	03.11.2015, 19:00	6
	Парамметры длины массива Setlength не должны быть вещественными 0