Решение типового примера

Дан массив вещественных чисел х1, х2, …, хn. Найти максимальный элемент массива.

Блок-схема:   max: =x[i]

Программа   Program maxsim; Uses Crt; Var max: real; x: array[ 1..40] of real; I, n: integer; Begin Clrscr; Write('n='); Readln(n); for i: =1 to n do Begin write('x[', i: 2, ']= '); readln(x[i]); end; max: =x[1]; for i: =2 to n do if x[i]> max then max: =x[i]; writeln('max=', max: 6: 2); readln; end.

Варианты заданий:

1. Дан массив вещественных чисел А(А1, А2, …, Аn) и В(В1, В2, …, Вn). Уменьшить положительные элементы массива А на величину К, а положительные элементы массива В увеличить на величину К, где К – заданное число.

2. Дан массив вещественных чисел А(А1, А2, …, Аn). Построить массив В(В1, В2, …, Вn), элементы которого определяются следующим образом:

Вi = .

3. Дан массив вещественных чисел Х(Х1, Х2, …, Хn). Найти сумму компонент массива Х, удовлетворяющих условию G< =Хn< =E, где Е и G – заданные числа.

4. Составить программу для вычисления длины n-мерного вещественного вектора Х = (Х1, Х2, …, Хn) по формуле L =

5. Дан массив вещественных чисел Х(Х1, Х2, …, Хn). Найти произведение положительных элементов массива и подсчитать их число.

6. Дан массив вещественных чисел А(А1, А2, …, Аn) и В(В1, В2, …, Вn). Найти скалярное произведение векторов A и B по формуле S = .

7. Дан массив вещественных чисел А(А1, А2, …, Аn). Найти среднее арифметическое положительных и среднее арифметическое отрицательных элементов массива.

8. Дан массив вещественных чисел В(В1, В2, …, Вn). Найти сумму положительных и сумму отрицательных элементов массива.

9. Дан массив вещественных чисел А(А1, А2, …, Аn) и В(В1, В2, …, Вn). Найти сумму отрицательных элементов массива А и В.

10. Дан массив вещественных чисел А(А1, А2, …, Аn) и С(С1, С2, …, Сn). Подсчитать число положительных элементов массива А и отрицательных элементов массива С.

11. Дано целое число N и набор из N ненулевых целых чисел. Вывести в том же порядке номера всех нечетных чисел из данного набора и количество K таких чисел.

12. Даны целые числа K, N и набор из N целых чисел. Если в наборе присутствует число, меньшее K, то вывести True; в противном случае вывести False.

13. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество элементов в наборе.

14. Дан набор ненулевых целых чисел; признак его завершения — число 0. Вывести сумму всех положительных четных чисел из данного набора. Если требуемые числа в наборе отсутствуют, то вывести 0.

15. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести количество чисел в наборе, меньших K.

16. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер первого числа в наборе, большего K. Если таких чисел в наборе нет, то вывести 0.

17. Дано целое число K и набор ненулевых целых чисел. Вывести номер последнего числа в наборе, меньшего K. Если таких чисел в наборе нет, то вывести 0.

18. Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел.

19. Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые больше своего правого соседа, и количество K таких чисел.

20. Дано целое число N и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести True, если нет — вывести False.

21. Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность.

22. Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между первыми двумя нулями (если первые нули идут подряд, то вывести 0).

23. Дано целое число N и набор из N целых чисел, содержащий по крайней мере два нуля. Вывести сумму чисел из данного набора, расположенных между последними двумя нулями (если последние нули идут подряд, то вывести 0).

24. Даны целые числа K, N и набор из N вещественных чисел: A1, A2,..., AN. Вывести K- e степени чисел из данного набора: A1K, A2K,..., ANK.

25. Дано целое число N и набор из N вещественных чисел: A1, A2,..., AN. Вывести следующие числа: A1, A2²,..., AN–1^N–1, AN^N.

26. Дано целое число N и набор из N вещественных чисел: A₁, A₂,..., A_N. Вывести следующие числа: A₁^N, A₂^N–1,..., A_N–1², A_N.