WRITELN;

WRITELN('MOHET ДОСТОИНСТВОМ 50 РУБЛЕЙ ', M50,' ШТУК');

WRITELN('ИX ПОРЯДКОВЫЕ НОМЕРА:');

FOR I:= 1 ТО M20 DO

WRITE(NUM5[I]: 3);

WRITELN;

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- вводим длину массива N;

- вводим значение элементов массива, проверяя их достоин­ство;

- определяем количество монет по 20 и 50 рублей и запомина­ем их порядковые номера;

- выводим результат.

Переменные:

MAS - массив чисел;

NUM2 - массив, содержащий порядковые номера монет по 20 рублей;

NUM5 - массив, содержащий порядковые номера монет по 50 рублей;

N - размер массива;

I - переменная цикла;

М20 - количество монет по 20 рублей;

М50 - количество монет по 50 рублей.

Практические задания

1. Дан упорядоченный по убыванию массив чисел. Вводим число N. Вставить это число в упорядоченный массив так, чтобы массив-результат тоже был упорядочен по убыванию.

2. Даны два упорядоченных массива целых чисел Ml и М2. Слить их в один упорядоченный массив. Рассмотреть случаи, когда массивы Ml и М2 упорядочены одинаково и когда по-разному.

3. Дан массив чисел. Найти сумму трех минимальных элементов.

4. Дан массив целых чисел. Записать его задом наперед.

5. Дан массив целых чисел Ml. Вводим массив М2, размерность которого значительно меньше, чем у Ml. Определить, сколько раз массив М2 встречается в Ml.

ТЕМА 2