Примеры задач

Двумерные массивы

Найти число элементов в каждой строке, больших среднего арифметического элементов данной строки.

Методика решения

Используемые переменные:
А - двумерный массив;
N - переменная размерности массива;
I,j – индексы элементов массива;
S – вспомогательная переменная;
P – среднее арифметическое каждой строки;
L - количество элементов, удовлетворяющих условию.;

В цикле формируем случайным образом элементы массива и выводим полученный массив на экран.

Затем просматриваем строки массива с помощью цикла, подсчитываем сумму элементов в строке и делим её на количество элементов строки ( n ), таким образом находим среднее арифметическое элементов данной строки. Далее повторно просматриваем эту строку и сравниваем каждый её элемент со средним арифметическим. Если элемент удовлетворяет условию (больше среднего арифметического строки), то увеличиваем переменную L на единицу (перед просмотром строки L обнуляем).

После просмотра каждой строки выводим количество элементов, удовлетворяющих условию ( L ), на экран.

Листинг программы

Program ex3_5;

Uses Crt;

Var a:Array [1..10,1..10] Of Integer;

i,j,n,l,s:Integer;

p:Real;

Begin ClrScr;

Writeln('введите число n: ');

Readln(n);

Randomize; {задание массива случайным образом}

For i:=1 To n Do

For j:=1 To n Do a[i,j]:=-25+random(51);

For i:=1 To n Do

Begin

For j:=1 To n Do write(a[i,j]:5);

Writeln; {вывод массива на экран}

End;

s:=0; p:=0;

For i:=1 To n Do

Begin l:=0;

For j:=1 To n Do s:=s+a[i,j];

p:=s/n;

For j:=1 To n Do

Begin {нахождение чисел в массиве удовлетворяющих условию}

If a[i,j]>p Then l:=l+1;

End;

Writeln('количество элементов ',i,' строки = ',l);

End; {вывод найденного количества чисел в каждой строке на экран}

Readkey;

End.

Запустить программу

Назад

X