Паскаль! , ! задать случайным образом 9 элементов числового массива – дробные числа от 10 до 50. в этом массиве: 1. найти минимальный элемент и увеличить его на 100. 2. найти максимальный элемент и поменять его местами с первым элементом. 3. найти минимальный и максимальный элемент в числовом массиве из 10 элементов, заданных с клавиатуры. поменять их местами.

1,2 var a: array [1..9] of real; i,k: integer; j: real; begin randomize; writeln('массив: '); for i: =1 to 9 do begin a[i]: =(random(410)+100)/10; write(a[i],' '); end; writeln; writeln('массив после увелечения минимального элемента на 100: '); k: =1; for i: =2 to 9 do if a[i]< a[k] then k: =i; a[k]: =a[k]+100; for i: =1 to 9 do write(a[i],' '); writeln; writeln('массив после престановки максиального элемента с первым: '); j: =a[1]; a[1]: =a[k]; a[k]: =j; for i: =1 to 9 do write(a[i],' '); writeln; end. 3 var a: array [1..10] of integer; i,mn,mx: integer; begin writeln('введите массив: '); for i: =1 to 10 do readln(a[i]); mn: =1; mx: =1; writeln('массив'); for i: =1 to 10 do begin if a[i]< a[mn] then mn: =i; if a[i]> a[mx] then mx: =i; write(a[i],' '); end; i: =a[mx]; a[mx]: =a[mn]; a[mn]: =i; writeln; writeln('массив после престановки: '); for i: =1 to 10 do write(a[i],' '); writeln; end.

Если доска квадратная, то можно поставить n ладей по одной вертикали - ясно, что они будут держать под угрозой всю доску. если же ладей меньше, чем n, то найдется по крайней мере одна горизонталь и одна вертикаль, на которой не будет находиться ни одной ладьи. так как ладьи бьют только по этим линиям, то их пересечение не будет под угрозой, значит, меньше чем n ладей быть не может. если же доска не квадратная, аналогично достаточно выставить ряд ладей по меньшей стороне, доказательство аналогично.

Program pm; uses crt; var x: array[1..1000] of integer; k,a,b,i: integer; begin clrscr; write('введите кол-во элементов массива: '); read(k); writeln; write('введите диапазон значений заполнения(a-начальное значение, b-конечное): '); repeat read(a,b); until a< =b; writeln; randomize; for i: =1 to k do x[i]: =random(b-a+1)+a; writeln('ваш массив: '); for i: =1 to k do write(x[i]: 5); writeln; write('введите элемент поиска: '); read(b); a: =0; for i: =1 to k do if x[i]=b then a: =i; if a> 0 then writeln('элемент со значением ',b,' имеет индекс ',a) else writeln('элемента не существует! '); readkey; end.