Сотсавьте программу которая заполнит массив a[1..10] случайными целыми числами в диапазоне от 1 до 100, затем меняет местами максимальный и минимальный элементы. выведите на экран исходный и полученный в паскале

program program1; vari,min,max,nmin,nmax: integer; a: array [1..10] of integer; beginrandomize; writeln('исходный массив: '); for i: =1 to 10 dobegina[i]: =random(100)+1; writeln('a[',i,']=',a[i]); end; nmin: =1; min: =a[nmin]; nmax: =1; max: =a[nmax]; for i: =1 to 10 dobeginif a[i]> max thenbeginnmax: =i; max: =a[i]; end; if a[i]< min thenbeginnmin: =i; min: =a[i]; end; end; a[nmin]: =max; a[nmax]: =min; writeln('минимальный элемент a[',nmin,']=',min,' максимальный элемент a[',nmax,']=',max); writeln('полученный массив: '); for i: =1 to 10 dowriteln('a[',i,']=',a[i]); end.

Var x1,y1,x2,y2,d1,d2: real; begin   write ('x1 = ');   readln (x1);   write ('y1 = ');   readln (y1);   write ('x2 = ');   readln (x2);   write ('y2 = ');   readln (y2);   d1: =sqrt(sqr(x1)+sqr(y1));   d2: =sqrt(sqr(x2)+sqr(y2));   if d1< > d2 then write ('к началу координат ближе ');     if d1> d2 then writeln ('вторая точка') else       if d2> d1 then writeln ('первая точка') else           writeln ('обе точки равноудалены друг от друга'); end.

uses graph; var n,i,x,y,height,width: integer; procedure init; var gd,gm: integer; begin  gd: =vga;   gm: =vgahi;   initgraph (gd,gm,''); end; procedure error; begin  closegraph;   writeln ('error! '); end; begin  write ('n = ');   readln (n);   randomize;   init;   if graphresult = 0 then      begin          for i: =1 to n do              begin

                  setcolor (random(14)+1);                   x: =random(640);                   y: =random(480);                   height: =random(91)+10;                   width: =random(101)+20;                   rectangle (x,y,x+width,y+height);               end;       end else error; end.