"Табличные величины", урок №3

Алгоритмы обработки массивов

На этом уроке вы познакомитесь с основными алгоритмами обработки массивов:

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

ШПАРГАЛКА
Нахождение суммы всех элементов массива A и ср. арифметического

S:=0;

for i:=1 to N do

     S:=S+A[i];

SrAr:=S/i;

Writeln(‘среднее арифметическое значение элементов массива ’,SrAr);

Нахождение произведения отрицательных элементов массива A

         P:=1;

for i:=1 to N do

   if A[i]<0
      then  P:=P*A[i];

Writeln(‘произведение отрицательных элементов массива ’,P);

Подсчет количества элементов массива A, больших Р

write(‘введите значение P ’);

read(P);

k:=0;

for i:=1 to N do

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

        Writeln(‘количество элементов массива ’,k);

Поиск максимального элемента массива A и его номера

max:=A[1]; k:=1;

for i:=2 to N do

     if A[i]>max
       then begin max:=A[i]; k:=i end;

Writeln(‘максимальный элемент массива ’,max,'  и его номер ',k);

Замена положительных элементов на 0 и вывод нового массива на экран

for i:=1 to N do

begin

    if A[i]>0 then A[i]:=0;

   writeln(‘A[‘,i:2,’]=’,A[i]:4:2);

end;