Var k, m, term: integer;Dat: array(1..8] of integer;BeginDat [1] := 7;
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) gt; m
for k:- 2 to 8 do
if Dat(k) gt; m then
begin
m :- Dat (k):
term :- k;
end;
То ответ такой:
Здесь мы разыскиваем максимальный элемент и запоминаем его позицию в переменной term
самые великие в массиве-это 8
И первая 8 имеет номер 4, означает ответ:4
Если же там так:
for k:- 2 to 8 do
if Dat(k) lt; m then
begin
m :- Dat (k):
term :- k;
end;
То ответ таковой:
Здесь мы разыскиваем минимум элемент и запоминаем его позицию в переменной term
самые великие в массиве-это 4
И 1-ая 4 имеет номер 5 означает ответ:5
Если же там так:
for k:- 2 to 8 do
if Dat(k) lt;= m then
begin
m :- Dat (k):
term :- k;
end;
То ответ таковой:
Тут мы отыскиваем минимум элемент и запоминаем его позицию в переменной term
самые великие в массиве-это 4
И последняя 4 имеет номер 7 означает ответ:7
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.