Подсчитать сумму всех элементов кратных 2 , в массиве из 10 чисел
8 комментария:
Кратны двум могут быть только целые числа.
Program r;typemas =array [1..10] of real;Var M:=mas;i,k:real;beginfor i:=1 to 10 do read(m[i]);for i:=1 to 10 do m[i] mod 2 = 0 thenk:=m[i]for i:=1 to 10 doif (m[i]+k)and(m[i]mod 2 =0)thenk:=m[i]writeln('сумма элементов массива',k,',кратный двум');end.
почему программа не работает??!
за ответ баллы
Не работает, потому что написана безграмотно: куча синтаксически ошибок. Надо мозг включать, когда пишете программу.
в чём ошибки?
Вы уже отметились под ответом и больше не о чем говорить.
ну где не правильно?
Кратны двум могут быть только целые числа.
Program r;typemas =array [1..10] of real;Var M:=mas;i,k:real;beginfor i:=1 to 10 do read(m[i]);for i:=1 to 10 do m[i] mod 2 = 0 thenk:=m[i]for i:=1 to 10 doif (m[i]+k)and(m[i]mod 2 =0)thenk:=m[i]writeln('сумма элементов массива',k,',кратный двум');end.
почему программа не работает??!
за ответ баллы
Не работает, потому что написана безграмотно: куча синтаксически ошибок. Надо мозг включать, когда пишете программу.
в чём ошибки?
Вы уже отметились под ответом и больше не о чем говорить.
ну где не правильно? Ответы
Список предметов
