Пример 3. Расчет сумы элементов массива

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

begin

for i:integer:= 1 to 10 do

begin

a[i]:=Random(100);

write(a[i],' ');

end;

writeln;

var s: integer;

s:=0;

for var i:=1 to 10 do

s:=s+a[i];

writeln('сумма элементов равна ',s);

end.

Пример 4. Подсчет элементов массива

Посчитать число элементов массива равных трем.

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

num:integer;

begin

for var i:=1 to 10 do

begin

a[i]:=random(100);

write(a[i],' ');

if a[i]=3 then num:=num+1;

end;

writeln;

writeln('Количество элементов равных трем ', num);

end.

Последовательность выполнения работы

1. Составить блок-схему (только для первого задания) и написать программу в среде PascalABC.NET (для первого и второго заданий).
2. В отчет включить формулировку задания, блок-схему, программу и скриншоты работы программы.
3. Для каждого задания сделать несколько скриншотов работы программы.

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

Вариант задания соответствует порядковому номеру в списке группы.

Задание 1

Определить массив целых чисел из 20 элементов. Заполнить массив случайными числами.

1. Найти максимальное значение среди положительных элементов массива.

2. Найти минимальное значение среди положительных элементов массива.

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

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

5. Найти сумму элементов массива, значения которых больше 5.

6. Найти сумму элементов массива, значения которых меньше 5.

7. Найти сумму элементов массива, значения которых четные числа.

8. Найти сумму элементов массива, значения которых нечетные числа.

9. Найти произведение элементов массива, значения которых больше 5.

10. Найти произведение элементов массива, значения которых меньше 5.

11. Найти произведение элементов массива, значения которых четные числа.

12. Найти произведение элементов массива, значения которых нечетные числа.

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

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

15. Найти максимальный элемент массива и заменить все элементы массива равные

максимальному значению на 0.

16. Найти минимальный элемент массива и заменить все элементы массива равные

минимальному значению на 0.

17. Найти количество положительных элементов массива. Если оно больше половины количества

элементов исходного значения, то заменить знак числа первого элемента массива.

18. Найти количество отрицательных элементов массива. Если оно меньше половины количества

элементов исходного значения, то заменить знак числа последнего элемента массива.

19. Найти количество четных элементов массива. Если оно больше половины количества

элементов исходного значения, то ко всем четным значениям элементов прибавить 1.

20. Найти количество нечетных элементов массива. Если оно меньше половины количества

элементов исходного значения, то ко всем нечетным значениям элементов прибавить 1.

Задание 2

Массив можно заполнить случайными числами или вводит значения с клавиатуры.

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. 

1. наибольший и наименьший члены

1. наибольший и последний члены

1. 

1. 

1. 

1. 

1. 

1. 

1. 

наименьший элемент и первый

Дата добавления: 2015-07-11