Найти ошибку в задаче на массивы

[Катакомба]

Даны три массива,надо сформировать массивы x и y по правилам:
x=a+b
y=b+c,
где a=a[i]/(max(a)-min(a)), b=b[i]/(max(b)-min(b)), c=c[i]/(max(c)-min(c)).

вот программа:

const nmax=30;
type tm=array[1..nmax] of integer;
var a,b,c,x,y:tm;
i,n,amax,amin,bmax,bmin,cmax,cmin:i nteger;
begin
writeln('razmer maccivov');
readln(n);
writeln('vvod elementov macciva A');
for i := 1 to n do read(a[i]);
readln;
writeln('vvod elementov macciva B');
for i := 1 to n do read(b[i]);
readln;
writeln('vvod elementov macciva C');
for i := 1 to n do read(c[i]);
readln;
amax:=a[1];
amin:=a[1];
bmax:=b[1];
bmin:=b[1];
cmax:=c[1];
cmin:=c[1];

for i:=1 to n do
begin
if a[i] > amax then
amax:=a[i];
if a[i] < amin then
amin:=a[i];
if b[i] > bmax then
bmax:=b[i];
if b[i] < bmin then
bmin:=b[i];
if c[i] > cmax then
cmax:=c[i];
if c[i] < cmin then
cmin:=c[i];
end;

for i:=1 to n do
begin
x[i]:=(a[i]/(amax-amin)) + (b[i]/(bmax-bmin))
y[i]:=(b[i]/(bmax-bmin)) + (c[i]/(cmax-cmin));
end;
readln;
end.
writeln('macciva x');
for i := 1 to n do write(x[i]:6:1);
readln;
writeln('macciva y');
for i := 1 to n do write(y[i]:6:1);
readln;
end.


у меня почему-то высвечивается ошибка в строке "y[i]:=(b[i]/(bmax-bmin)) + (c[i]/(cmax-cmin));"
что не так?

[Neobrat]

x[i]:=(a[i]/(amax-amin)) + (b[i]/(bmax-bmin))

возможно ";" в конце не хватает ))

[Катакомба]

нет,если я ставлю ";" ,то он выделяет уже и эту "x[i]:=(a[i]/(amax-amin)) + (b[i]/(bmax-bmin))" строку

[Niro]

type tm=array[1..nmax] of integer;
var a,b,c,x,y:tm;

У вас элементами массивов являются целые числа, а в результате деления

x[i]:=(a[i]/(amax-amin)) + (b[i]/(bmax-bmin))

элементом массива может оказаться и действительное число

[Dush]

потому что x[i] ожидается что будет целое число а при делении a[i]/(amax-amin) получается вещественное
вам надо либо округлять (Round), либо делить нацело (div), либо менять тип выходных массивов на real.

[Катакомба]

а как же тогда задать типы переменных?

type tm=array[1..nmax] of real;
var a,b,c,x,y:tm;
amax,amin,bmax,bmin,cmax,cmin:integ er;
n,i:real;
если так,то ему не нравится строка:"for i := 1 to n do read(a[i]);"


а так:
"type tm=array[1..nmax] of real;
var a,b,c,x,y:tm;
amax,amin,bmax,bmin,cmax,cmin:integ er;
n,i:integer;"
строка:"amax:=a[1];"

[Dush]

а зачем индексы i и n вы делаете вещественным? оставьте его integer
введите новый тип type tr=array[1..nmax] of real; x и y сделайте этим типом. все остальное оставьте без изменений

[Катакомба]

я пробовала:
"type tm=array[1..nmax] of real;
var a,b,c,x,y:tm;
amax,amin,bmax,bmin,cmax,cmin:integ er;
i:integer;
n:real;"

тогда не сходится что-то в строке: "for i := 1 to n do read(a[i]);"

[Dush]

входные массивы и индексы - integer, выходные - real

[Катакомба]

ура,работает

СПАСИБО ВСЕМ ОГРОМНОЕ за помощь!