Массив целых чисел из 12 элементов. заполнить случайным образом, упорядочить по возрастанию.

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin   var a: =arrrandom(12,10,99); a.println;   a.sorted.println; end. тестовое решение 78 89 48 47 80 52 42 30 13 55 16 53 13 16 30 42 47 48 52 53 55 78 80 89

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.