Информатика, опубликовано 2018-08-22 22:53:17 by Гость
В массиве подсчитать количество элементов, которые не делятся на 7 без остатка. (Элементов массива:7).
Ответ оставил Гость
//Pascal ABC.NET v3.1 сборка 1219
Const n=7;
Var
ar:array[1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
readln(ar[i]);
if ar[i] mod n0 then k:=k+1;
end;
writeln(Res:,k);
end.
Пример ввода:
1
2
3
4
5
6
7
Пример вывода:
Res: 6
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на