Только ответ!
var k, m, day: integer;
Pos: array[1..7] of integer;
begin
Pos[1] := 17;
Pos[2] := 19;
Pos[3] := 20;
Pos[4] := 18;
Pos[5] := 16;
Pos[6] := 20;
Pos[7] := 16;
day := 1; m := Pos[1];
for k := 2 to 7 do
if Pos[k] > m then
begin
m := Pos[k];
day := k end;
write(day);
end.
Только ответ!
var k, m, day: integer;
Pos: array[1..7] of integer;
begin
Pos[1] := 17;
Pos[2] := 19;
Pos[3] := 20;
Pos[4] := 18;
Pos[5] := 16;
Pos[6] := 20;
Pos[7] := 16;
day := 1; m := Pos[1];
for k := 2 to 7 do
if Pos[k] > m then
begin
m := Pos[k];
day := k end;
write(day);
end.
var k, m, day: integer;
Pos: array[1..7] of integer;
begin
Pos[1] := 17;
Pos[2] := 19;
Pos[3] := 20;
Pos[4] := 18;
Pos[5] := 16;
Pos[6] := 20;
Pos[7] := 16;
day := 1; m := Pos[1];
for k := 2 to 7 do
if Pos[k] > m then
begin
m := Pos[k];
day := k end;
write(day);
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Ответ: 3 (это номер первого максимального элемента массива)