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