№ 3. Что будет выведено на экран после выполнения программы: Var k, m: integer; Dat: array[1..10] of integer; Begin Dat[1] := 16; Dat[2] := 20; Dat[3] := 20; Dat[4] := 41; Dat[5] := 14; Dat[6] := 21; Dat[7] := 28; Dat[8] := 12; Dat[9] := 15; Dat[10] := 35; m := 0; for k := 1 to 10 do if Dat[k] > m then m := Dat[k]; writeln(m); End.

Переменной m сначала присваивается 0. Затем программа последовательно сравнивает с ней все 10 элементов массива и заменяет m, если находит больший элемент.

Наибольший элемент массива — 41 (Dat[4]). После прохода по массиву значение m равно 41.

Ответ: 41.