Указать числа массива, у которых остаток от деления на М

@ranko5445 · Регистрация: 14.04.2015

Студворк — интернет-сервис помощи студентам

Даны натуральные числа a1,a2,....,an . Указать те из них, у которых остаток от деления на M равен L (0< L < M - 1).
Вот есть такой код, но что-бы я не вводил, выдает, что чисел таких нет. Помогите пожалуйста, где ошибка.

Pascal

program z;
var i,n,M,f,L:integer;
a:array [1..10] of integer;
begin
     writeln('Введите кол-во элементов');
     readln(n);
     writeln('Ввод элементов');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Вывод элементов');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     writeln('Введите делитель');
     readln(M);
     writeln('Введите остаток');
     readln(L);
     writeln('Числа, которые от деления на ',M,' дают остаток ',L);
     if (L>0) and (L<M-1)
        then
            begin
                 for i:=1 to n do
                 if (a[i] mod M)=l
                    then
                        begin
                             writeln(a[i]);
                             f:=1;
                        end;
            end;
     if f=0
        then
            writeln('Таких чисел нет');
end.

Добавлено через 20 минут
Программа выдает элементы, только если остаток равен 1. То есть L=1

@Puporev · 15.04.2015, 11:10

Pascal

program z;
var i,n,M,f,L:integer;
a:array [1..10] of integer;
begin
     writeln('Введите кол-во элементов');
     readln(n);
     writeln('Ввод элементов');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Вывод элементов');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     writeln('Введите делитель');
     readln(M);
     writeln('Введите остаток');
     readln(L);
     writeln('Числа, которые от деления на ',M,' дают остаток ',L);
     f:=0;
     for i:=1 to n do
     if a[i] mod m=l then
      begin
       write(a[i],' ');
       f:=1;
      end;
     if f=0 then writeln('Таких чисел нет');
end.

@ranko5445 · 15.04.2015, 11:15 **[ТС]**

Спасибо. Как можно здесь организовать ввод и вывод массива через процедуру?

@Puporev · 15.04.2015, 11:21

Pascal

program z;
type mas=array [1..10] of integer;
procedure vvod(var a:mas;var n:byte);
var i:byte;
begin
writeln('Введите кол-во элементов');
readln(n);
writeln('Ввод элементов');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
end;
procedure vyvod(a:mas;n:byte);
var i:byte;
begin
writeln('Вывод элементов');
for i:=1 to n do
write(a[i],' ');
writeln;
end;
var i,n,f:byte;
    M,L:integer;
    a:mas;
begin
vvod(a,n);
vyvod(a,n);
writeln('Введите делитель');
readln(M);
writeln('Введите остаток');
readln(L);
writeln('Числа, которые от деления на ',M,' дают остаток ',L);
f:=0;
for i:=1 to n do
if a[i] mod m=l then
 begin
  write(a[i],' ');
  f:=1;
 end;
if f=0 then writeln('Таких чисел нет');
end.

@ranko5445 · 15.04.2015, 11:24 **[ТС]**

Огромное спасибо

Указать числа массива, у которых остаток от деления на М

Решение

Решение

@ranko5445 0 / 0 / 1 Регистрация: 14.04.2015 Сообщений: 72
	15.04.2015, 11:15 [ТС]	3
	Спасибо. Как можно здесь организовать ввод и вывод массива через процедуру? 0

@ranko5445 0 / 0 / 1 Регистрация: 14.04.2015 Сообщений: 72
	15.04.2015, 11:24 [ТС]	5
	Огромное спасибо 0

Опции темы