Программа обрабатывает одномерный целочисленный массив Dat: i 1 2 3 4 5 6 7 8 9 10 Dat[i] 70 80 90 100 80 40 40 70 80 90 Определите, какие числа будут выведены в результате выполнения следующего фрагмента программы: k := 1; m := dat[k]; for i := 2 to 10 do if dat[i] < m then begin m := dat[i]; k := i; end; writeln('m = ', m); writeln('k = ', k);

ответ: m=40 k=6

k := 1;

m := dat[k];  // m присваивается значение первого элемента массива

for i := 2 to 10 do

if dat[i] < m then    // В цикле рассматриваются элементы со  второго до

begin                          последнего и ищет первый элемент с наименьшим

m := dat[i];                   значением, запоминает его номер и значение

k := i;

end;

writeln('m = ', m);  // Выводим наименьший элемент

writeln('k = ', k); // Выводит номер наименьшего элемента

Объяснение: