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