TYPE MISMATCH

[desnet]

помогите исправить ошибки!
program klab_3;
var
i:integer;
a,b,sum:array[1..30] of integer;
begin
writeln('massiv a:');
for i:=1 to 30 do
begin
if(i mod 2=0)then a[i]:=i/2
В ЭТОМ МЕСТЕ ВЫДАЕТ TYPE MISMATCH else a[i]:=i;
write(a[i]:4);
end;
writeln;
end;
begin
for i:=1 to 30 do
if (i mod 2=0) then b[i]=exp(1/3*ln(i))
else b[i]=sqr(i);
writeln('massiv b:');
for i:=1 to 30 do
write(b[i]:4);
end;
writeln;
begin
sum:=0;
for i:=1 to 30 do
sum:=sum+sqr(a[i]-b[i]);
writeln('sum:=',sum);
readln;
end.

[Xardas]

Попробуйте изменить тип элементов массива с целочисленного на вещественный

ЗЫ Пользуйтесь, пожалуйста, тегом CODE для оформления кода, чтобы было удобнее читать

[desnet]

изменил теперь где
sum:=0;(сode type mismatch)

[Mad_Cat]

sum:array[1..30] of integer

sum:=0;(сode type mismatch)

обьявите

sum:Real;

[desnet]

большое спасибо,заработало!!