Написать программу вычисления модуля разности двух данных целых чисел

Pascal: var a,b: longint; begin   write ('number 1: ');   readln (a);   write ('number 2: ');   readln (b);   writeln (abs(a-b));   readln; end. c++: #include < iostream> #include < cmath> using namespace std; int main() {     int a,b;     cout < < "number 1: ";     cin  > > a;     cout  < < "number 2: ";       cin  > > b;     cout < < abs(a-b)  < < endl;     return 0; }

Const n=550; var k10,k50: integer; begin writeln('   10   50'); writeln(''); for k10: =0 to n div 10 do   begin   k50: =(n-10*k10) div 50;   if 10*k10+50*k50 = n then writeln(k10: 4,k50: 5);   end; end. результат:   10   50     0   11     5   10   10     9   15     8   20     7   25     6   30     5   35     4   40     3   45     2   50     1   55     0

Вот решение на c++: #include < iostream> #include < cstdlib> #include < ctime> using namespace std; int main() { int n=0; cout < < "введите размер массива: "; cin > > n; if (n< 1) { cout < < "массив не может быть пустым! "; return 1; } int a[n]; srand(time(0)); for (int i=0; i< n; i++) { int r=rand()%271-100; a[i]=r; } int min=170; for (int i=0; i< n; i++) { if ((a[i]> 0) and (a[i]< min)) min=a[i]; } cout < < "минимальный положительный элемент иассива: " < < min < < endl; return 0; }