Задачи на работу с одномерными массивами.

1. Создать одномерный массив размером [10] при помощи генератора случайных чисел.

2. Подсчитать сумму элементов одномерного массива размером [10], заданного генератором случайных чисел.

3. Подсчитать произведение элементов одномерного массива размером [10], заданного генератором случайных чисел.

4. Найти максимальный элемент одномерного массива размером [10], заданного генератором случайных чисел. Элементы создаются в интервале от 1 до 100.

5. Создать при помощи генератора случайных чисел одномерный массив размером [100], и вывести на печать отдельно элементы большие 5.

6. Создать при помощи генератора случайных чисел одномерный массив размером [N], N вводится с клавиатуры.

7. Найти сумму первых N-элементов одномерного массива размером [M]. При N<M и M≤100.

8. Найти сумму последних N-элементов одномерного массива размером [M]. При N<M и M≤100.

9. Найти минимальный элемент одномерного массива, заданного генератором случайных чисел.

10. Вычислить сумму квадратов чисел одномерного массива размером [5], заданного генератором случайных чисел.

11. Подсчитать сумму четных элементов одномерного массива, заданного генератором случайных чисел.

12. Подсчитать сумму нечетных элементов одномерногомассива, заданного генератором случайных чисел.

13. Подсчитать количество элементов одномерного массива, заданного генератором случайных чисел, больших среднеарифметического всех элементов массива.

14. Подсчитать количество элементов массива > 17. Массив размером [100], элементы создаются в интервале 10 до 20.

15. Подсчитать количество элементов массива >K. Массив размером [N], элементы создаются в интервале от A до B. K, N, A, B вводятся с клавиатуры.

16. Заменить первые пять элементов массива размером [10] на противоположные по знаку. Элементы создаются в интервале от -10 до +10.

17. Заменить последние пять элементов массива размером [N] на противоположные по знаку. Элементы создаются в интервале от -10 до +10, N вводится с клавиатуры

18. Дан массив из 10 элементов, посчитать среднеарифметическое значение.

19. Дан массив из 10 элементов, получить другой, состоящий из квадратов этих элементов.

20. Дан массив из 10 элементов, заменить все элементы на противоположные по знаку.

21. Дан массив из 10 элементов, заменить все элементы на «0».

22. Дан одномерный массив. Прибавьте ко всем элемента по 1.

23. Дан одномерный массив. Уменьшите значение элементов на 3.

24. Дан массив. Все отрицательные элементы замените на «0».

25. Дан массив, все положительные элементы замените на «0».

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

27. Дан массив. Найдите количество неотрицательных элементов.

28. Дан массив. Найдите количество ненулевых элементов.

29. Дан массив. Заполните все ячейки массива среднеарифметическими значениями исходного массива.

30. Создайте массив из 10 элементов. Четные по номерам элементы замените на квадраты значений этих элементов.

31. Создайте массив из 10 элементов. Найдите произведение последних 5 элементов.

Образец решения одной задачи.

program z631;

var a: array [1..10] of real;

      i: integer;

s: real;

begin

randomize;

for i:=1 to 10 do

begin

a[i]:=random(10);

write(a[i]);

end;

for i:=1 to 5 do

begin

s:=s*a[i+5];

end;

write (‘s= ‘, s);

end.