Var k, m, term: integer; Dat: array(1..8] of integer; Begin Dat [1] := 7; Dat [2] := 7;...

Question

Var k, m, term: integer; Dat: array(1..8] of integer; Begin Dat [1] := 7; Dat [2] := 7; Dat [3] := 6; Dat (4) != 8; Dat (5] := 4; Dat[6] := 5; Dat [7] := 4; Dat [8] := 7; m :- Dat(1); term := 1; for k:= 2 to 8 do if Dat [k] begin m := Dat[k); term := k; end; writeln(term); End. Var k, m, day: integer;

Comments

Определить что будет выведено в результате

---

ПОМОГИТЕ ПОЖАЛУЙСТА

---

Да((( Прошу вас, чем сможете, помогите(( Это очень срочно, от этого зависит четвертная(( Если поможете, заранее спасибо огромное(((

Answer 1

Ответ:

Ладно, побуду добрым.

Если там так Dat(k) > m

for k:- 2 to 8 do

if Dat(k) > m then

begin

m :- Dat (k):

term :- k;

end;

То ответ такой:

Тут мы ищем максимальный элемент и запоминаем его позицию в переменной term

самые большие в массиве-это 8

И первая 8 имеет номер 4, значит ответ:4

Если же там так:

for k:- 2 to 8 do

if Dat(k) < m then

begin

m :- Dat (k):

term :- k;

end;

То ответ такой:

Тут мы ищем минимум элемент и запоминаем его позицию в переменной term

самые большие в массиве-это 4

И первая 4 имеет номер 5 значит ответ:5

Если же там так:

for k:- 2 to 8 do

if Dat(k) <= m then</p>

begin

m :- Dat (k):

term :- k;

end;

То ответ такой:

Тут мы ищем минимум элемент и запоминаем его позицию в переменной term

самые большие в массиве-это 4

И последняя 4 имеет номер 7 значит ответ:7