Почему программа не работает?

Program r;

type

mas = array [1 ... 10] of real;

Var M:=mas; i, k:real;

begin

for i:=1 to 10 do

read (m[i]) ;

for i:=1 to 10 do m[i] mod 2 = 0 then

k:=m[i]

for i:=1 to 10 do

if (m[i]+k) and (m[i]mod 2 = 0) then

k:=m[i]

writeln ('сумма элементов массива', k,', кратный двум') ;

end.

Question

Фекуса

27 мая, 13:27

+5

Ответы (1)

Знаете ответ на вопрос?

Елена · Answer 1

2 и 3 строчки надо убрать,

после Var нужно написать i, k:real;

в 3 и 6 строчке с конца поставить;