Деление элемента массива

[WRNWRN]

Дан числовой массив. Элемент массива №2 нужно разделить на 2 и умножить на элемент №6. Как это сделать?

[Hacker19_90]

massiv[2] := (massiv[2]/2)*massiv[6];

[WRNWRN]

Error 26: Type mismatch

[Hacker19_90]

А если массив будет типа real?

var
    a: array[1..n] of real

Или вам нужен целочисленный??

[WRNWRN]

получилось) но теперь в строчке if a[4] mod 2 <>0 then Write('0') пишет Error 41 : Operand types do not match operator

[Hacker19_90]

Попробуй заменить на
if frac(a[4] / 2) <> 0 then

[iBuTTHead]

Когда пишите постановку задачи указывайте типы с которыми нужно работать.
"Тыкать пальцем в ноздрю на пьяную голову" здесь никому не охото.

[WRNWRN]

uses crt;
var a:array[1..6] of integer ;
i:integer;
n:integer ;
begin
clrscr;
for i:=1 to 6 do read(a[i]);
if (a[4] mod 2<>0) then
write('Incorrect data') else
begin
n:=((a[4]/2)+a[3])*a[6];
write(n);
end;
end.

[Hacker19_90]

сделай n типа real;

[WRNWRN]

тогда запись ответа слишком длинная получается