Переведите код с C++ на pascal #include
using namespace std;
int main()
{
// declaram variabilele pe care le vom utiliza in program
unsigned int n, d, i, j;
cout<<"Dati numarul n = ";cin>>n;
cout<<"Dati numarul d = ";cin>>d;
cout<<"Perechile de numere sunt : "< for(i = d; i <= n; i++)
for(j = d; j <= i; j++)
if(i%d==j%d && i%d==0 && i!=j)
cout<<" ("< }
begin
var n:=ReadInteger('Количество элементов=');
var b:=ArrRandomReal(n,-10,20);
b.Println(', ');
var mx:=b.Max;
var c:=b.Where(x->x<>mx);
c.Println(', ')
end.
Тестовое решение:
Количество элементов= 13
-3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 19.5660732731065, 18.4909354934892, 9.13206894841607
-3.19967562016085, 0.998729616868649, 17.2918094030078, 1.10658910642685, 10.4760369241592, 6.72070787601206, 8.34657945593194, 12.5555840984711, 13.4678390079494, -1.30778588881147, 18.4909354934892, 9.13206894841607