Pascalблок схема и код-программа) программа должна попросить название предмета и оценку по предмету затем очистить экран, вывести в столбик предмет и оценку(я подразумеваю, что это массивы данных) вам 100

Var   a: array[1..15] of integer;   i,m,n: integer; begin   writeln('изначальный массив ');   for i: = 1 to 15 do   begin     a[i]: = random(51);     write(a[i],' ');   end;   for i: = 1 to 15 do     for m: = 1 to 14 do       if a[m]> a[m+1] then begin         n: =a[m];         a[m]: =a[m+1];         a[m+1]: =n;       end; writeln; writeln('преобразованный массив ');   for i: = 1 to 15 do     write(a[i],' '); end.      

Так как a, b, c, d, e - различные цифры в порядке убывания, то a не может быть меньше 4 (в этом случае цифры -  4, 3, 2, 1, 0). пусть а=4, тогда 4*4+2 = 16+2 = 18 - не подходит пусть а=5, тогда с может быть 3 или 2. проверяем: 5*5+3=28, 5*5+2=27 - не подходит пусть а=6, 6*6+с = 36+с. чтобы получить в выражении число из двух одинаковых цифр, с должно быть = 8 (получим 44), но с должно быть < = 4 - не подходит. пусть а=7, 7*7+с=49+с=49+6=55,но  с должно быть < = 5  - не подходит пусть а=8, 8*8+с=64+2=66 - может быть (в этом случае в=6, d=1, e=0). проверим второе выражение: 86*8+1=688+1=689. здесь должно получиться 666, значит а=8 тоже не подходит. пусть а=9. 9*9+с=81+с=81+7=88. значит, в=8, с=7 98*9+d=882+d=882+6=888. значит, d=6 987*9+e=8883+e=8883+5=8888. значит, е=5