Вывести все элементы массива, кратные заданному числу, и заменить все отрицательные элементы на 0 — Pascal(Паскаль)-CF

Дан одномерный массив целых чисел. Вывести все элементы массива кратные A. Все отрицательные элементы заменить 0. Размерность массива ввести с клавиатуры. Значения элементов массива задавать с помощью генератора случайных чисел в диапазоне от -100 до +100. Программа

Read More

Вычислить сумму S первых N натуральных чисел — Pascal(Паскаль) -CF

Вычислить сумму S первых N натуральных чисел. Если S < 50, то вычислить сумму S1 четных натуральных чисел в пределах до N и вывести ее на печать. Если S > =50, то отпечатать S. N ввести с клавиатуры. Программа

Read More

Определить слово максимальной длины в котором все символы различны и вывести его на экран — Pascal (Паскаль) — CF

Ввести строку символов предусмотреть ввод пустой строки ил строки из одних пробелов). Разделителями слов в строке могут быть «_», «;», «:», «,», » » (предусмотреть использование множества разделителей). Надо определить слово максимальной длины в котором все символы различны и вывести его на экран.

Read More

Подсчитать количество столбцов содержащих хотя бы один нулевой элемент — Pascal (Паскаль) — CF

Дана целочисленная прямоугольная матрица. Определить:1) количество столбцов, содержащих хотя бы один нулевой элемент (оформить в виде функции);2) номер строки, в которой находится самая длинная серия одинаковых элементов (оформить в виде процедуры). Код программ на onlineGDB

Read More