массив чисел

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, dr.Jekill, MOTOCoder, Medved

Ответить
Wudro
Сообщения: 8
Зарегистрирован: 07 май 2005, 23:37

массив чисел

Сообщение Wudro » 08 май 2005, 23:35

Даны натуральные числа а, а2...аn . Указать те из них, у которых остаток от деления на
M будет равен L (0<=L<=M-1)

BoBaH
Сообщения: 7
Зарегистрирован: 06 май 2005, 07:14
Откуда: Perm
Контактная информация:

Сообщение BoBaH » 11 май 2005, 07:34

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
count, m: integer;
ArrayInt : array of Integer;


begin
Write('input lenght of array:');
Readln(count);
Write('input m:');
Readln(m);
SetLength(ArrayInt, count);

for count := 0 to (Length(ArrayInt)-1) do
begin
Write('A[',count,']:');
Readln(ArrayInt[count]);
end;
writeln;
for count := 0 to (Length(ArrayInt)-1) do
begin
if (ArrayInt[count] mod m)>0 then writeln('A[',count,']:',ArrayInt[count])
end;
readln;

end.

Проверял вроде все работает. Выводит все числа которые не делятся на m, ведь такое условие?

Ответить