begin k := 1; //Получим 1-ый элемент массива a[1] := Random(41) - 20; min := a[1]; write(a[1]:4); //Получим оставшиеся элементы массива //найдем минимальный, запомним его номер //и выведем массив на экран for var i := 2 to N do begin a[i] := Random(41) - 20; if a[i] < min then begin min := a[i]; k := i; end; write(a[i]:4); end; if k <> 1 then swap(a[1], a[k]); writeln; //Вывод массива после замены for var i := 1 to n do write(a[i]:4); end.
Кое что убрал - работает, только свои данные введи (фамилия и т.д.)
uses graphabc;var s,f,i,o: string; j: byte; pic: integer;begin s:='AVALON';f:='FAMILY';i:='name';o:='second name'; setfontcolor(clred);setwindowsize(550,250);setfontsize(20);setfontstyle(fsbold);for j:=1 to length(s) do textout(10,(j*40)-40,s[j]);setpencolor(clred);setbrushcolor(clred);rectangle(30,120,550,125);setfontcolor(clblue);setbrushcolor(clwhite);setfontname('Tahoma');setfontsize(16);SetFontStyle(fsnormal);textout(300,10,f);SetFontStyle(fsItalic);textout(300,50,i);textout(300,90,o);setpenwidth(6);for j:=1 to 10 do arc(500+(j*30),420,300,0,180);setfontname('Times');setfontsize(26);textout(40,150,'Something for good');end.
const
N = 20;
var
a: array [1..N] of integer;
k, min: integer;
begin
k := 1;
//Получим 1-ый элемент массива
a[1] := Random(41) - 20;
min := a[1];
write(a[1]:4);
//Получим оставшиеся элементы массива
//найдем минимальный, запомним его номер
//и выведем массив на экран
for var i := 2 to N do
begin
a[i] := Random(41) - 20;
if a[i] < min then begin
min := a[i];
k := i;
end;
write(a[i]:4);
end;
if k <> 1 then swap(a[1], a[k]);
writeln;
//Вывод массива после замены
for var i := 1 to n do write(a[i]:4);
end.
uses graphabc;var s,f,i,o: string; j: byte; pic: integer;begin
s:='AVALON';f:='FAMILY';i:='name';o:='second name';
setfontcolor(clred);setwindowsize(550,250);setfontsize(20);setfontstyle(fsbold);for j:=1 to length(s) do textout(10,(j*40)-40,s[j]);setpencolor(clred);setbrushcolor(clred);rectangle(30,120,550,125);setfontcolor(clblue);setbrushcolor(clwhite);setfontname('Tahoma');setfontsize(16);SetFontStyle(fsnormal);textout(300,10,f);SetFontStyle(fsItalic);textout(300,50,i);textout(300,90,o);setpenwidth(6);for j:=1 to 10 do arc(500+(j*30),420,300,0,180);setfontname('Times');setfontsize(26);textout(40,150,'Something for good');end.