Массив. Задачи.

11 класс. Одномерный массив. Задачи.

1. Дан массив В(7) из целых чисел. Найти половину произведения элементов первого, третьего и пятого элементов массива.

2. Каждый элемент массива А(6), состоящего из целых чисел, уменьшить на два, затем найти их сумму.

3. Дан массив С(8) из целых чисел. Найти среднее арифметическое последних пяти элементов.

4. Найти количество чётных элементов массива В(10), состоящего из целых чисел.

5. В массиве С(7) из целых чисел, найти количество элементов, чётных 3.

6. Дан А(8) из целых чисел. Заменить третий, четвёртый и пятый элементы числом 100.

7. В массиве А(9) из целых чисел для первых трёх элементов найти произведение, а для последних трёх найти сумму.

8. Массив В(8) состоит из целых чисел. Найти количество положительных элементов массива.

9. Каждый элемент массива В(6) из целых чисел увеличить на 1, а затем найти их произведение. Массив состоит из целых чисел.

10. Дан массив А(8) из целых чисел. Найти половину суммы элементов второго, третьего и восьмого элементов массива.

11. Каждый элемент массива С(10), состоящего из целых чисел, уменьшить на 10, затем найти их сумму.

12. Дан массив В(15) из целых чисел. Найти среднее арифметическое последних десяти элементов.

13. Дан массив В(11) из целых чисел. Найти количество элементов массива меньших числа 10.

14. Найти количество нечётных элементов массива А(10), состоящего из целых чисел.

15. В массиве В(7) из целых чисел, найти количество элементов, чётных 4.

16. Дан В(10) из целых чисел. Заменить второй, пятый и седьмой элементы числом одиннадцать.

17. В массиве А(8) из целых чисел для первых трёх элементов найти произведение, а для последних пяти среднее арифметическое.

18. Массив А(10) состоит из целых чисел. Найти количество положительных элементов массива.

19. Имеется массив В(11) из целых чисел. Найти количество элементов массива, больших числа 2 и кратных 3.

20. Дан массив А(10) целых чисел. Найти максимальный элемент из всех и минимальный для первых пяти массива элементов массива.

21. Поменять местами первый и последний элементы массива А(10).

22. Найти индекс минимального элемента массива В(10).

23. Найти сумму максимального и минимального элементов массива А(10).

24. Каждый элемент массива А(6) увеличить на два, а затем найти сумму элементов массива.

25. В массиве С(10) найти количество чисел, кратных 9.

26. Найти минимальный элемент массива среди последних трёх элементов массива А(10).

27. Увеличить максимальный элемент массива В(10) в два раза.

28. Имеется массив В(10) из целых чисел. Найти количество элементов массива, больших 7 и кратных 4.

29. Найти минимальный элемент массива А(10) и уменьшить его в два раза.

30. Найти среднее арифметическое максимального и минимального элементов массива В(10).

31. Заменить отрицательные элементы массива С(10) нулём.

32. Положительные элементы массива С(7) большие 20 заменить единицей.

33. Найти разность между максимальным и минимальным элементом массива В(5).

34. В массиве целых чисел А(10) найти сумму чётных элементов массива.

35. В массиве целых чисел С(8) найти произведение элементов кратных 3^ём.

36. Найти удвоенное произведение максимального и минимального элементов массива А(10).

37. Дан массив В(7) из целых чисел. Найти половину суммы элементов второго, четвёртого и пятого элементов массива.

38. . Каждый элемент массива А(6), состоящего из целых чисел, увеличить в 5 раз, затем найти их сумму.

39. Дан А(5) из целых чисел. Заменить первый, третий и восьмой элементы числом 50.

40. Найти количество нечётных элементов массива А(10), состоящего из целых чисел.

41. Каждый элемент массива С(6) из целых чисел увеличить на 3, а затем найти их сумму. Массив состоит из целых чисел.

42. Имеется массив D(18) из целых чисел. Найти количество элементов массива, больших числа 5 и кратных 2.

43. Дан массив В(11) из целых чисел. Найти количество чётных элементов и меньших числа 10.

44. Дан массив ВА(10) из целых чисел. Найти сумму нечётных элементов и больших числа 15.

45. Дан массив А(7). Подсчитать количество отрицательных элементов массива.

46. Дан массив В(10). Для последних шести элементов найти максимальный и минимальный элемент.

47. Найти индекс максимального и минимального элементов массива.

48. Дан массив А(9). Найти удвоенное произведение пяти последних элементов массива.

49. Каждый элемент массива А(10), состоящего из целых чисел, увеличить в 5раз, затем найти их сумму и произведение.

50. Дан массив А(12). Найти произведение чётных по индексу элементов.

51. Дан массив В(10). Найти произведение нечётных по индексу элементов.

52. Дан массив В(10) из целых чисел. Найти сумму элементов кратных шести и меньших числа 30.

53. В массиве А(20) из целых чисел для первых 10 элементов найти среднее арифметическое, а для последних пяти произведение.

54. Дан массив В(11). Найти сумму индексов максимального и минимального элементов массива.

55. Дан массив А(10) целых чисел. Найти минимальный элемент из всех и среднее арифметическое для первых пяти массива элементов массива.

56. Дан массив А(7). Подсчитать количество отрицательных элементов массива и найти произведение положительных элементов.

57. В массиве целых чисел В(12) найти сумму элементов кратных 4^ём.

58. Имеется массив С(12) из целых чисел. Найти количество элементов массива, меньших числа 10 и кратных 3.

59. Массив В(8) состоит из целых чисел. Найти количество положительных элементов и их произведение.

60. Имеется массив А(10) из целых чисел. Найти количество элементов массива, меньших 20 и кратных 3.

61. Дан массив В(11). Найти произведение индексов максимального и минимального элементов массива.

62. Увеличить максимальный элемент массива В(10) в три раза. А минимальный уменьшить в два раза.

63. В массиве целых чисел А(11) найти сумму нечётных индексов массива.

Примеры подобных решённых задач(среда PascalABC)

Пример 1.

Program zadanie_proba1;{условие задания: увеличить каждый элемент массива А(5) в два раза, а затем найти их сумму}

Var i,S: integer;

A: array [1..5] of integer;

Begin

S:=0;

writeln('Ввести массив');

for i:=1 to 5 do

read(A[i]);

writeln('печать массива');

for i:=1 to 5 do

write(A[i], ' ');

for i:=1 to 5 do

begin

A[i]:=A[i]*2;

s:=s+A[i];

end;

writeln('SUMMA = ',S);

End.

Пример 2.

Program proba2;{условие задачи: в массиве А(8) подсчитать количество элементов, больших 20}

Var i,S,k: integer;

A: array [1..8] of integer;

Begin

k:=0;

writeln('ввести массив');

for i:=1 to 8 do

read(A[i]);

writeln('печать массива');

for i:=1 to 8 do

write(A[i], ' ');

writeln;

for i:=1 to 8 do

if A[i]20 then k:=k+1;

writeln;

writeln('кол-во элементов больших числа 20 = ',k);

End.

Пример 3.

Program proba3;{условие задачи: в массиве С(7) подсчитать количество элементов, кратных трём}

Var i,S,k: integer;

C: array [1..7] of integer;

Begin

k:=0;

writeln('ввести массив');

for i:=1 to 7 do

read(c[i]);

writeln('печать массива');

for i:=1 to 7 do

write((C[i]), ' ');

writeln;

for i:=1 to 7 do

if c[i]mod 3=0 then k:=k+1;

writeln;

writeln('кол-во чисел кратных 3 = ',k);

End.

Пример 4.

Program proba4;{условие задачи: в массиве В(10) подсчитать количество чисел, больших 9 и кратных 5}

Var i,S,k: integer;

B: array [1..10] of integer;

Begin

k:=0;

writeln('ввести массив');

for i:=1 to 10 do

read(B[i]);

writeln('печать массива');

for i:=1 to 10 do

write((B[i]), ' ');

writeln;

for i:=1 to 10 do

if ( B[i]9) and (B[i] mod 5 = 0) then k:=k+1;

writeln;

writeln('кол-во чисел, больших 9 и кратных 5 = ',k);

End.