Сумма выбранных элементов. Поиск элемента в массиве

Сумма выбранных элементов
начало
конец
нет
да
нет
да
S:= 0
i:= 1
S:= S + A[i]
i:= i + 1
пока ни одного
не нашли
начать с 1-ого
перейти к следующему
нашли еще 1

Сумма выбранных элементов
program qq;
const N = 5;
var A: array [1..N] of integer; i, S: integer;
begin
{ здесь надо заполнить массив }
S:= 0;
for i:=1 to N do
if A[i] = 0 then count:= count + 1;
writeln('Cумма полож. элементов: ', S);
end.
for i:=1 to N do
if A[i] > 0 then S:= S + A[i];
перебираем все элементы массива

Задания
«3»: Заполнить массив из 10 элементов случайными числами в интервале [-10,10] и подсчитать сумму всех отрицательных элементов.
«4»: Заполнить массив из 10 элементов случайными числами в интервале [0,100] и подсчитать среднее значение всех элементов, которые <50.
«5»: Заполнить массив из 10 элементов случайными числами в интервале [10,12] и найти длину самой длинной последовательности стоящих рядом одинаковых элементов.
Пример:
Исходный массив:
10 10 11 12 12 12 10 11 11 12
Длина последовательности: 3

Практикум 1: суммы, произведения…
«3»: 1. Вычислить сумму всех элементов массива A.
2. Вычислить сумму отрицательных элементов массива A.
3. Вычислить сумму всех элементов массива A, которые делятся
на 3.
«4»: 4. Вычислить среднее арифметическое всех элементов массива A, которые меньше, чем 50.
5. Вычислить произведение всех чётных положительных элементов массива A.
«5»:
6. Найти сумму всех элементов массива A, у которых число десятков (вторая с конца цифра десятичной записи) больше, чем число единиц.
7. Все элементы массива A - трёхзначные числа. Найти сумму всех элементов массива A, в десятичной записи которых все цифры одинаковые.

Поиск в массиве
Задача – найти в массиве элемент, равный X, или установить, что его нет.
Пример: если в классе ученик с фамилией Пупкин?
Алгоритм:
начать с 1-ого элемента (i:=1)
если очередной элемент (A[i]) равен X, то закончить поиск
иначе перейти к следующему элементу:

Поиск элемента, равного X
начало
конец
нет
да
нет
да
i:= 1
i:= i + 1
начать с 1-ого
перейти к следующему
‘Не нашли’
‘Есть!’

Поиск элемента в массиве
program qq;
const N=10;
var a:array[1..N] of integer; i, X: integer;
begin
writeln('Исходный массив:');
for i:=1 to N do
begin
A[i] := random(100) + 50;
write(A[i]:4);
end;
writeln;
write('Какое число Вы хотите найти: ');
read(X);

Поиск элемента в массиве
i:=1;
while (i<=N) and (A[i]<>X) do
i:=i+1; if i <= N then
writeln('A[', i, ']=', X)
else writeln('Не нашли...');
end.