Дан целочисленный массив на n элементов,вывести на экран элементы у которых остаток k от деления на число x лежит в диапазоне от 0 до -1
Дан целочисленный массив на n элементов,вывести на экран элементы у которых остаток k от деления на число x лежит в диапазоне от 0 до -1
Ответ(ы) на вопрос:
Гость
Const
N = 13;
Var
A:array[1..N] of integer;
i,x:integer;
Begin
Write('x = ');
ReadLn(x);
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(N)-N div 2;
Write(A[i],' ');
End;
WriteLn;
Write('Искомые элементы: ');
For i:= 1 to N do
if (-1 <= A[i] mod x)and(A[i] mod x <= 0) then Write(A[i],' ')
End.
Не нашли ответ?
Похожие вопросы