Дан целочисленный массив ** n элементов,вывести ** экран элементы у которых остаток k от...

Question

Дан целочисленный массив на n элементов,вывести на экран элементы у которых остаток k от деления на число x лежит в диапазоне от 0 до -1

Answer 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],' ')<br>End.

Comments

Спасибо дорогой,дай бог тебе здоровья