Информатика, опубликовано 2018-08-22 20:29:46 by Гость
Почему программа не работает???? 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 строчке с конца поставить ;
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на