Вопрос по информатике:
Кол-во непарных элементов массива
const
n = 5;
var
a: array[1..n] of integer; i, c: integer;
begin
c := 0;
for i:=1 to n do
begin
readln(a[i]);
if mod(a[i])<>o then c:=c+1
end;
writeln(c);
end.
ему мод не нравится в условии=(
что делать?
- 08.03.2018 21:12
- Информатика
- remove_red_eye 5740
- thumb_up 19
Ответы и объяснения 1
const
n=5;
var
mas:array[1..n] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to n do
begin
readln(mas[i]);
if mas[i] mod 2 = 0 then // Если mas[i] делиться на 2 без остатка,то...
sum:=sum+1;
end;
writeln(sum);
end.
- 10.03.2018 00:07
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.