В массиве заменить нулями элементы, модуль которых при делении на p дает в остатке q

@BOT · Регистрация: 26.10.2011

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

Дан массив из n целых чисел и целые числа p,q (p>q>0). В массиве заменить нулями элементы, модуль которых при делении на p дает в остатке q.

@КонецСвета · 01.11.2011, 19:01

Pascal

uses crt;
var a: array [1..100] of integer;
    i, n, p, q: integer;
label 1;
begin
     writeln ('Введите размер массива');
     readln(n);
1:   writeln('Введите целые числа p,q (p>q>0)');
     readln (p,q);
     if (p<=0) or (q<=0) or (p<q) then
                                  begin
                                  writeln ('Нарушено условие!');
                                  goto 1;
                                  end;
     for i:=1 to n do
     begin
     writeln ('Введите ', i, ' элемент массива');
     readln (a[i]);
     if abs(a[i])mod p=q then a[i]:=0;
     end;
     for i:=1 to n do write (a[i]:4);
end.

@BOT 45 / 1 / 1 Регистрация: 26.10.2011 Сообщений: 115
		1
	В массиве заменить нулями элементы, модуль которых при делении на p дает в остатке q 01.11.2011, 15:16. Показов 2314. Ответов 1 Метки нет (Все метки) Дан массив из n целых чисел и целые числа p,q (p>q>0). В массиве заменить нулями элементы, модуль которых при делении на p дает в остатке q. 0

	01.11.2011, 19:01

Опции темы

В массиве заменить нулями элементы, модуль которых при делении на p дает в остатке q

Решение