Question

Каков результат работы программы:

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.

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

Answer 1

Данная программа подсчитывает количество элементов в массиве `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`.