Из Pascal в C - C (СИ) (248689)

Формулировка задачи:

VAR
 A:Array[1..10] of Byte;
 i,j,d:Byte;
BEGIN
 Randomize;
 For i:=1 to 10 do
  begin
   A[i]:=Random(101);
   Write(A[i]:4);
  end;
 Writeln;
 Writeln;
 For j:=1 to 9 do
  For i:=1 to 10-j do
   If (A[i] mod 10)>(A[i+1] mod 10) then
    begin
     d:=A[i];
     A[i]:=A[i+1];
     A[i+1]:=d;
    end;
 For i:=1 to 10 do
  Write(A[i]:4);
 Readln;
END.

Решение задачи: «Из Pascal в C»

Листинг программы

#include <stdio.h>
#include <time.h>
 
main()
{
     int a[10];
     int i, j, d;
    
        randomize();
    for(i=0; i<10; i++)
    {
          a[i]=random(101);
          printf("%2d.  %4d\n",i+1, a[i]);
    }
 
       printf("\n\n");
 
    for(j=0; j<9; j++)
     for(i=0; i<10-j; i++)
      if(a[i]%10>a[i+1]%10)
       {
           d=a[i];
           a[i]=a[i+1];
           a[i+1]=d;
       }
 
   for(i=0; i<10; i++)
    printf("%2d.  %4d", i, a[i]);
 
   system("pause");
}

Объяснение кода листинга программы

Объявлены массив a[10] и переменные i, j, d.
В цикле for заполняются значения массива a[10] случайными числами от 0 до 100.
Выводится на экран список чисел с двумя элементами на строку.
Цикл for для сортировки массива a[10] по возрастанию.
Если текущее число a[i] больше следующего числа a[i+1], то происходит обмен чисел.
Цикл for для вывода отсортированного массива a[10] на экран.
В конце программы вызывается функция system(pause) для приостановки работы программы до нажатия клавиши.