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