Почему программа не работает????
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.
1 комментария:
Комментарий удален
Комментарий удален Ответы
Гость 2 и 3 строчки надо убрать,
после Var нужно написать i,k:real;
в 3 и 6 строчке с конца поставить ;
4 комментария:
не помогло
значит в конце каждой строчки поставить ;
непомогло
не с глаголами пишется отдельно
не помогло
значит в конце каждой строчки поставить ;
непомогло
не с глаголами пишется отдельно Похожие вопросы
Информатика
Спробув створити зображення квітки,використавши тільки літери та текстові символи,що є на клавіатурі...
Информатика
Блок схема алгоритма переймування файла...
Информатика
Помогите решить тест...
Список предметов
