Презентация, доклад по информатике на тему Нахождение элемента массива с заданными свойствами

элемента массива такой, что a[n]= x, где х - заданное число;
сообщение о том, что искомого элемента в массиве не обнаружено.

Здесь:
4-й элемент равен 20;
два элемента равны 31:
нет элемента равного 10;
четыре элемента – четные числа.

Условия поиска

его на экран.
Ввести число Х, с которым будет сравниваться текущий элемент массива .
Если элемент равен числу Х (ИЛИ другое условие истинно), то некая переменная–счетчик NumberX увеличивается на единицу.
Анализ и вывод результата:
если переменная–счетчик NumberX=0 => таких чисел в массиве нет;
если переменная–счетчик NumberX равна какому-то значению, то => кол-во чисел в массиве = этому значению.

а не переменная?

Как изменится фрагмент программы, если используется 100 элементов массива?

do
if Rand[i] mod 2=0 then
NumberChet:= NumberChet +1;

Операции MOD и DIV:

Найти количество элементов массива, равных заданному числу (Учебник стр.117).
Измените программу (Random(50)) так, чтобы числа принадлежали диапазону [-10; 10]
Условие If Rand(I) = X… измените на условие, чтобы программа находила количество положительных чисел.

integer; sred:real;
begin
Randomize;
for i:=1 to X do
begin
A[i]:=Random (11) - 5;
Write ( A[i], ‘ ‘ );
end;
max:= A[1];
for i:=2 to 5 do
if A[i] > max then max:= A[i];
write (‘max=‘ ,max);

Sum:=0;
for i:=1 to X do sum:=sum + A[i];
Sred:=sum/X;
write (‘sred=‘ ,sred:5:2);

kchet:=0;
for i:=1 to 100 do
if A[i] mod 2=0 then kchet:=kchet+1;

min:= A[1];
for i:=2 to 5 do
if A[i] write (‘min =‘ , min);

5.Распечатать на экране элементы в столбец. Найти максимальный, минимальный элемент, среднее значение чисел и вывести на их экран.
Заполните массив из 10-ти элементов случайными числами от 1 до 10. Распечатать на экране элементы. Найти четные элементы и вывести на экран их сумму.
Заполните массив из 5-ти элементов случайными числами от 10 до 20. Распечатать на экране элементы в строку. Введите число X. Подсчитать количество элементов, равных числу X.