Кіріктірілген бағдарламалау ортасының компаненттерін қолданып квадрат теңдеудің түбірлерін есептейтін бағдарламаның прототипін құрыңыз және бұл интерфейстің тиімділігін дәлелдеңіз​

Const nx=30; var i,j,n,m,q,r: integer; a: array[1..nx,1..nx] of integer; d,sn,min: real; begin write('введите размер массива '); readln(n); min: =100; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(100)-2; write(a[i,j]: 4); m: = m + a[i,j]; end; writeln; end; sn: = m/n/n; write(m: 9,sn: 9: 4); writeln; for i: =1 to n do begin for j: =1 to n do begin d: =abs(sn - a[i,j]); if d < min then begin r: =i; q: =j;   min : = d; end; end; end; write(a[r,q]: 4,r: 4,q: 4); end.

Var   a: array [1..10] of byte;   i, k, n, t, x, max: byte;     //процедура вывода массива procedure writea(); var i : byte; begin  for i : = 1 to 10 do begin     write(a[i], chr(32));   end;   writeln(); end; //основная процедура begin  randomize;   for i : = 1 to 10 do begin     a[i] : = random(100);   end;   writea();   writeln('');   n : = 10;   while n > 1 do begin     for i : = n downto 1 do begin       if a[i] > max then begin max : = a[i]; x : = i end;     end;     t : = a[n];     a[n] : = max;     a[x] : = t;     dec(n);     max : = 0;     writea();   end;   writeln('');   writea(); end.- pascal abc.net, массив из  10 случайных чисел до 100 типа byte- результат работы программы следующий: 43 77 72 39 60 99 44 65 72 58  43 77 72 39 60 58 44 65 72 9943 72 72 39 60 58 44 65 77 9943 72 65 39 60 58 44 72 77 9943 44 65 39 60 58 72 72 77 9943 44 58 39 60 65 72 72 77 9943 44 58 39 60 65 72 72 77 9943 44 39 58 60 65 72 72 77 9943 39 44 58 60 65 72 72 77 9939 43 44 58 60 65 72 72 77 99  39 43 44 58 60 65 72 72 77 99