Архивы Pascal(Паскаль) - Страница 3 из 208 - Справочник юного программиста Pascal/Delphi

Дано предложение А. Сформировать новое предложение В, заменив порядок букв в каждом слове из предложения А на противоположный (порядок слов не менять) — Pascal(Паскаль)

вычислить сумму всех составных чисел от 1 до M. Составные числа можно представить в виде произведения нескольких простых чисел. — Pascal(Паскаль)

Вычислить Z=(Xmax-Ymin)/2 ,где Xmax- максимальный элемент массива X(50) Ymin-минимальный элемент массива Y(40), Xmax и Ymin вычислять в одной подпрограмме — Pascal(Паскаль)

Следующий вариант

Бизнесмен собрал предсказания М ведущих астрологов об успешности сделок в различные дни месяца. предсказания оцениваются по пяти бальной шкале:5-успешная сделка,1-не успешная.Бизнесмен считает что сделка действительно будет успешной,если 75% предсказаний будут равны 4 или 5.Написать программу,определяющую самые благоприятные дни для Бизнесмена согласно предсказаниям — Pascal(Паскаль)

Дан одномерный массив,состоящий из n целых чисел.Прибавить к каждому элементу массива число 5.Вывести получившийся массив на экран — Pascal(Паскаль)

Найти все четные числа в промежутки числовой последовательности от А до В. Значения А и В вводятся с клавиатуры — Pascal(Паскаль)

Описать процедуру RemoveForInc(A, N), удаляющую из вещественного массива A размера N «лишние» элементы так, чтобы оставшиеся элементы оказались упорядоченными по возрастанию: первый элемент не удаляется, второй элемент удаляется, если он меньше первого, третий— если он меньше предыдущего элемента, оставленного в массиве, и т. д. Например, массив 5.5, 2.5, 4.6, 7.2, 5.8, 9.4 должен быть преобразован к виду 5.5, 7.2, 9.4. Массив A и число N являются входными и выходными параметрами. С помощью этой процедуры преобразовать массивы A,B, C размера NA, NB, NC соответственно и вывести размер и содержимое полученных массивов — Pascal(Паскаль)

Создать файл f1 целых чисел. Просуммировать по две компоненты файла и записать эти суммы в f2. Если количество компонент в f1 нечетно, то последнее число не писать в f2. Вывести исходный и результирующий файлы — Pascal(Паскаль)

дано массив целых чисел A[i], где i=1,2…n. вывести на экран сначала отрицательные элементы. а потом остальные — Pascal(Паскаль)

Даны 2 массива 10 целых чисел, найти сумму элементов кратных 3 и вывести номер отрицательных элементов — Pascal(Паскаль)