Question

Программа обрабатывает одномерный целочисленный массив 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);

Answer 1

Ответ: 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); // Выводит номер наименьшего элемента

Объяснение: