Question

Определите и напишите, что будет выведено в результате выполнения следующего фрагмента программы, если одномерный массив имеет следующие значения: 12, 15, 17, 15, 14, 12, 10, 13, 14, 15: m := 0; for k := 1 to 10 do if Dat[k] > m then begin m := Dat[k]; end; writeln(m);

Answer 1

Ответ:

В результате выполнения Фрагмента будет true

Объяснение:

Так как в коде указано значение k от 1 до 10

А значение m=0

И в коде написано,что если k>m то в любом случае будет true

Хоть любое значение массива  возьми из выше перечисленных будет true

Answer 2

Данный фрагмент программы находит максимальное значение в одномерном массиве Dat и выводит его.

Для данного массива со значениями: 12, 15, 17, 15, 14, 12, 10, 13, 14, 15, программа будет выглядеть следующим образом:

pascalCopy code
var
  Dat: array[1..10] of Integer; // объявление и инициализация массива
  m, k: Integer;

begin
  Dat[1] := 12;
  Dat[2] := 15;
  Dat[3] := 17;
  Dat[4] := 15;
  Dat[5] := 14;
  Dat[6] := 12;
  Dat[7] := 10;
  Dat[8] := 13;
  Dat[9] := 14;
  Dat[10] := 15;

  m := 0; // инициализация переменной m

  for k := 1 to 10 do
  begin
    if Dat[k] > m then
    begin
      m := Dat[k]; // если текущий элемент массива больше текущего значения m, то обновляем m
    end;
  end;

  writeln(m); // выводим максимальное значение m
end.

В результате выполнения программы будет выведено значение 17, так как это максимальное число в данном массиве.