program z 1 type mas array1 10of integer

ПОИСК В МАССИВЕ program z 1; type mas = array[1. . 10]of integer; procedure maxmas(a: mas; var max, nmax: integer); var i: integer; begin max : = a[1]; nmax : = 1; for i : = 2 to 10 do if a[i] > max then begin max : = a[i]; nmax : = i; end; var a: mas; i, max, nmax: integer; begin for i : = 1 to 10 do begin a[i] : = random(100); write(a[i], ' '); end; maxmas(a, max, nmax); writeln; write('max = ', max, ' nmax = ', nmax); end.

СОРТИРОВКА ВЫБОРОМ program z 2; var a: array[1. . 10] of integer; i, j, min, nmin, x: integer; begin for i : = 1 to 10 do begin a[i] : = random( 100); write(a[i], ' '); end; for i : = 1 to 10 do begin min : = a[i]; nmin : = i; for j : = i + 1 to 10 do begin if a[j] < min then begin min : = a[j]; nmin : = j; end; x : = a[i]; a[i] : = a[nmin]; a[nmin] : = x; end; writeln; for i : = 1 to 10 do write(a[i], ' '); end.

СОРТИРОВКА ПУЗЫРЬКОМ program z 2; var a: array[1. . 10] of integer; i, j, x: integer; begin for i : = 1 to 10 do begin a[i] : = random(100); write(a[i], ' '); end; for i : = 1 to 9 do for j : = 1 to 10 - i do if a[j] > a[j + 1] then begin x : = a[j]; a[j] : = a[j + 1]; a[j + 1] : = x; end; writeln; for i : = 1 to 10 do write(a[i], ' '); end.