пожайлуста решить задачу на Pascal Организовать заполнение целочисленного массива R, размерностью N. Найти и вывести на экран произведение элементов вектора, не превышающих число S, введённое с клавиатуры, и количество единичных элементов массива. Заменить все элементы массива, индексы которых не совпадают со значениями, на сумму элементов, равных первому элементу массива. Вывести на экран массив R до и после изменения.

илюхв    3   29.01.2021 22:28    1