Вычислить значения обработки массиваVar k, m, day: integer;Dat: array[1...10] of integer;BeginDat[1] := 2; Dat[2] := 2;Dat[3] := 3;Dat[4] := 3; Dat[5] := 4; Dat[6] := 4;Dat[7] := 5; Dat[8] := 5; Dat[9] := 6;Dat[10] := 6;day:=1; m := Dat[1];for k := 2 to 10 doif Dat[k] = m thenbeginm:= Dat[k];day := k;end;write(day);End.

Question

Информатика

Kaaztyut

6 год назад

Вычислить значения обработки массиваVar k, m, day: integer;Dat: array[1...10] of integer;BeginDat[1] := 2; Dat[2] := 2;Dat[3] := 3;Dat[4] := 3; Dat[5] := 4; Dat[6] := 4;Dat[7] := 5; Dat[8] := 5; Dat[9] := 6;Dat[10] := 6;day:=1; m := Dat[1];for k := 2 to 10 doif Dat[k] = m thenbeginm:= Dat[k];day := k;end;write(day);End.

ОТВЕТЫ

Димитринка

Oct 24, 2020

В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2

996