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;

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

Если там так 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

begin

m :- Dat (k):

term :- k;

end;

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

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

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

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