Презентация, доклад на тему Обработка массива, типовые задачи

массива;
подсчет элементов в массиве, удовлетворяющих заданному условию;
поиск в массиве максимального (минимального) элемента;
сортировка элементов массива

в массиве заданный элемент.

пользователя требуется ввести число. Если в массиве есть элемент с таким значением, то необходимо выдать соответствующее сообщение. Таким образом, задача сводится к сравнению каждого элемента массива с введенным пользователем числом.
Условные обозначения:
g – запрашиваемое у пользователя число (целый тип)
n – размерность массива (число элементов в массиве)
m – массив, содержащий целые числа в диапазоне от a до b

40;
var i, g: integer; otv:string[5];
m: array [1..n] of integer;
Begin {заполнение массива--------}
for i:=1 to n do m[i]:= random(b – a) + a;
{вывод на экран}
for i:=1 to n do write(m[i]:6);
{-----------------------------------------}
write ('введите число '); readln (g);
i := 1; otv:=’нет‘;
repeat
if g=m[i] then begin otv:=’есть‘; i:=n end;
i := i + 1;
until (i > n);
writeln ('В массиве ', otv, ‘элемент ', g);
readln;
End.

среднее арифметическое элементов массива.

– массив, содержащий целые числа в диапазоне от a до b
n – размерность массива (число элементов в массиве)
sr – среднее арифметическое (вещественный тип)
s – сумма всех элементов массива (целый тип)

b = 50;
var m : array [1..n] of integer;
i, s: integer; sr:real;
Begin {заполнение массива--------}
for i:=1 to n do m[i]:= random(b – a) + a;
{вывод на экран}
for i:=1 to n do write(m[i]:6);
{суммирование всех элементов}
s := 0;{начальное значение суммы s=0}
for i:= 1 to n do s := s + m[i];
sr:= s / n; {сумму всех элементов делим на их количество}
{вывод ответа}
writeln ('среднее арифметическое элементов массива = ', sr:6:2);
readln;
End.

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

что значение элемента массива должно делится нацело на три, т. е. a[i]/3, где a[i] – элемент массива с номером i.
Тогда на языке программирования Pascal условие делимости будет записано следующим образом:
if (a[i] mod 3) = 0 then p:= p* a[i];

Условные обозначения:
m – массив, содержащий целые числа в диапазоне от a до b
n – размерность массива (число элементов в массиве)
p – произведение всех элементов массива, кратных трем

= 50;
var m : array [1..n] of integer;
i, p: integer; otv: string [4] ;
Begin {заполнение массива--------}
for i:=1 to n do m[i]:= random(b – a) + a;
{вывод на экран}
for i:=1 to n do write(m[i]:6);{решение задачи}
p := 1; otv:=’нет’
for i:= 1 to n do
if (a[i] mod 3) = 0 then begin p:= p* a[i]; otv:=’есть’ end;
if otv:=’есть’ then writeln ('произведение элементов массива, кратных трем = ', p)
else writeln ('в массиве нет элементов, кратных трем');
readln;
End.

из сумм a1 + an; a2 + an-1; …, где a1,a2, … an – элементы массива.

an-1; … и выбора из них наименьшей.

Условные обозначения:
m – массив, содержащий целые числа в диапазоне от a до b
n – размерность массива (число элементов в массиве)
max – минимальная из сумм a1 + an; a2 + an-1; …

10;
var m : array [1..n] of integer;
i, max: integer;
Begin {заполнение массива--------}
for i:=1 to n do m[i]:= random(b – a) + a;
{вывод на экран}
for i:=1 to n do write(m[i]:6);{решение задачи}
max:=a[1] + a[n]; {начало поиска}
for i : = 2 to n do
if max< a[i] + a[n – i + 1] then max := a[i] + a[n – i + 1];
{вывод ответа}
writeln (‘максимальная сумма равна ', max)
readln;
End.

циклов типа ДЛЯ
Изучить примеры обработки массива