Программа обрабатывает одномерный целочисленный массив 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); // Выводит номер наименьшего элемента
Объяснение: