Информатика, опубликовано 2018-08-22 20:27:00 by Гость
Размер массива и сам массив вводится с клавиатуры. Найдите сумму элементов, удволетворяющих условию: остаток от деления на 3 равен 2.
Ответ оставил Гость
Var
mass : array of integer;
len, tempNumber, summ, i : integer;
begin
write(Введите длину массива: );
readln(len);
SetLength(mass, len);
for i := 0 to len - 1 do
begin
write(mass[, i, ] = );
readln(mass[i]);
end;
summ := 0;
for i := 0 to len - 1 do
if mass[i] mod 3 = 2 then
summ := summ + mass[i];
writeln(Сумма: , summ);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на