Почему программа не работает???? 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)...
Почему программа не работает????
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.
Гость
Ответ(ы) на вопрос:
Гость2 и 3 строчки надо убрать,
после Var нужно написать i,k:real;
в 3 и 6 строчке с конца поставить ;
Не нашли ответ?
Похожие вопросы