35 баллов + лучший ответ

Відповідь:

aa=0 bb=0 cc=0 dd=0 ee=0

ab=5 ac=11 ad=21 ae=12

ba=5 bc=6 bd=16 be=7

ca=11 cb=6 cd=10 ce=4

da=21 db=16 dc=10 de=14

ea=12 eb=7 ec=4 ed=14

Пояснення:

ответ во вложениях........

program xxx;

      var i : integer;

                a : array[1..15] of real;                   n : real;   begin    randomize;     for i: =1 to 15 do        a[i]: =random(20)-20;  

    writeln('исходный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    n: =a[1];

    a[1]: =a[15];

    a[15]: =n;

    writeln('полученный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    readln

end.

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.