Вопрос по информатике:
Почему программа не работает????
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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.10.2016 23:57
- Информатика
- remove_red_eye 10616
- thumb_up 48
Ответы и объяснения 1
после Var нужно написать i,k:real;
в 3 и 6 строчке с конца поставить ;
- 07.10.2016 18:55
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.