Question

Помогите пожалуйста!!! var k, m, day: integer; Dat: array[1..10] of integer; begin Dat[1]:=7; Dat[2]:= 2; Dat[3]:= 3; Dat[4]:= 3; Dat[5]:= 4; Dat[6]:= 4; Dat[7]:= 5; Dat[8]:= 5; Dat[9]:= 7; Dat[10]:= 6; day:= 1; m:= Dat[1]; for k:= 2 to 10 do begin if Dat[k] > = m then begin m:= Dat[k]; day:= k end end; write(day); end.

Answer 1

9,

т.к. day:= k выполнятеся одни раз в случае Dat[9]:= 7

Answer 2

Конечно, я помогу разобраться с этим кодом на языке Pascal.

Данный код ищет индекс максимального значения в массиве Dat и записывает его в переменную day.

Давайте разберем код по шагам:

1. Объявляются переменные k, m, day как целочисленные значения и массив Dat из 10 целочисленных элементов.

2. Заполняется массив Dat значениями.

3. Инициализируются переменные day и m. Переменная day устанавливается на 1-й день (индекс 1) массива, а переменная m устанавливается на значение первого элемента массива Dat[1].

4. Запускается цикл for, который перебирает значения массива Dat с индексами от 2 до 10 (включительно). Обратите внимание, что первый элемент уже учтен при инициализации переменных day и m, поэтому он пропущен в цикле.

5. В теле цикла проверяется, является ли текущее значение Dat[k] больше или равным значению m. Если это условие выполняется, то обновляются значения переменных m (максимальное значение) и day (индекс этого значения).

6. После завершения цикла, в переменной day будет храниться индекс максимального значения в массиве Dat.

7. На последней строке кода выводится значение переменной day (индекс максимального значения) на экран.

В результате выполнения данного кода, на экран будет выведено значение 9. Это означает, что максимальное значение в массиве Dat равно 7, и оно находится в 9-м элементе (индекс 9, так как массивы в Pascal индексируются с 1).