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