Нахождение минимального и максимального значения элементов последовательности, удовлетворяющих заданному условию. Составление и отладка программ. Язык программирования Pascal

Дан фрагмент кода: var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 28; Dat[2] := 20; Dat[3] := 13; Dat[4] := 13; Dat[5] := 14; Dat[6] := 21; Dat[7] := 41; Dat[8] := 12; Dat[9] := 15; Dat[10] := 30; m := 0; for k := 1 to 10 do if Dat[k] > m then begin m := Dat[k]; end; writeln(m); End. Определите, что будет выведено на экран в результате выполнения программы.

Дан массив (список), состоящий из 10 целых чисел. Требуется найти максимальный элемент массива (списка). Определите число операций сравнения, которые выполняются при работе программы, решающей эту задачу.

Дан массив, состоящий из 10 элементов. Все элементы массив различны, являются неотрицательными целыми числами и не превышают 1000. Необходимо поменять местами максимальный и минимальный элементы массива. Заполните пропуски в программе, решающей эту задачу: minA : = 1001; maxA := ; for i:= 1 to 10 do begin if (A[i] < minA) then begin ; i_min := i; end; if () then begin ; i_max := i; end; end; A[i_max] := ; A[i_min] := ; for i:= 1 to 10 do write(A[i], ' ');