Каков результат работы программы: Var k, m: integer; Dat: array[1..15] of 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; Dat[11] := 10; Dat[12] := 13; Dat[13] := 17; Dat[14] := 16; Dat[15] := 17; m := 0; for k := 1 to 15 do if Dat[k]=15 then begin m := m + 1; end; writeln(m); End. Измените программу таким образом, чтобы она могла подсчитать сколько раз значение каждого элемента встречается в массиве.

Данная программа подсчитывает количество элементов в массиве `Dat`, равных числу 15.

Пошаговое решение:

1. Объявляем две переменные `k` и `m` типа `integer`.
2. Объявляем массив `Dat` состоящий из 15 элементов типа `integer`.
3. Присваиваем значения элементам массива `Dat` так, чтобы удовлетворить условия задачи.
4. Инициализируем переменную `m` нулевым значением.
5. Запускаем цикл `for` с переменной `k` от 1 до 15.
6. Внутри цикла проверяем условие: если значение элемента массива `Dat` с индексом `k` равно 15, то выполняем следующие действия:
- Увеличиваем переменную `m` на 1.
7. После окончания цикла выводим значение переменной `m` с помощью функции `writeln`.

Изменение программы для подсчёта количества каждого элемента:

1. Объявляем массив `Count` состоящий из 15 элементов типа `integer`. Этот массив будет использоваться для хранения количества повторений каждого элемента.
2. Запускаем цикл `for` с переменной `k` от 1 до 15.
3. Внутри цикла проверяем значение элемента массива `Dat` с индексом `k` и выполняем следующие действия:
- Увеличиваем значение элемента массива `Count` с индексом, равным значению текущего элемента `Dat[k]`, на 1.
4. После окончания цикла выводим значения всех элементов массива `Count`.

Измененный код программы:

```
Var k, m: integer;
Dat: array[1..15] of integer;
Count: array[1..15] of 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;
Dat[11] := 10; Dat[12] := 13;
Dat[13] := 17; Dat[14] := 16;
Dat[15] := 17;

for k := 1 to 15 do
begin
if Dat[k] = 15 then
begin
m := m + 1;
end;
Count[Dat[k]] := Count[Dat[k]] + 1;
end;

writeln(m);

for k := 1 to 15 do
begin
writeln('Элемент ', k, ' повторяется ', Count[k], ' раз(а)');
end;
End.
```

В этой модифицированной программе мы добавляем массив `Count` для подсчёта количества повторений каждого элемента. В каждой итерации цикла, мы увеличиваем значение элемента `Count` с индексом, равным текущему элементу массива `Dat`. Затем мы выводим количество повторений каждого элемента массива `Dat` с помощью второго цикла `for` и функции `writeln`.