#include <iostream>
using namespace std;
int main ()
{
long long m,l,a[100000],n = 0;
cin >> m >> l;
while (cin >> a[n])
n++;
for (int i = 0; i < n; i++)
{
if (a[i] % m == l)
cout << a[i] << " ";
}
return 0;
}
Вот код...
Один из наименее известных языков програмирования,используется для обучения програнированию в старших классах и на первых курсах вузов.
Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do
begin readln(a[i]);
end;
for i:=1 to 10 do
begin
for j:=i+1 to 10 do
begin
if a[i]=a[j] then ans:=ans+1;
end;
end;
if ans>0 then writeln('есть')
else writeln('нет');
end.<span> </span>