Question

Помогите решить задачу по информатике. Нужно очень срочно Составить программу на паскале. найти среднее значение элементов двумерного массива и подсчитать, сколько в этом массиве элементов, превышающих среднее значение.

Answer 1

USES CRT;
VAR A:array[1..3,1..3] of integer;   
        i,j,s,summa:integer;   
        sred:real;
BEGIN 
CLRSCR;
Randomize;

   summa:=0; 
   s:=0;
{Заполняем массив случайными числами от 0 до 15 и выводим на экран}
   For i:=1 to 3 do   
      begin   
         For j:=1 to 3 do     
            begin       
               A[i,j]:=Random(15);       
               Write(' ',A[i,j]:2,'  ');     
            end;    
         Writeln;   
      end;

{находим общую сумму всех элементов массива }
   For i:=1 to 3 do   
      For j:=1 to 3 do     
         begin       
            summa:=summa+A[i,j];       
            s:=s+1;     
         end;

   Writeln;
   Writeln(' ',summa,'   ',s);
   Writeln;
 
{Находим средне арифметическое число массива}
   sred:=summa/s;
   Writeln(' ',Средне арифметическое = ',sred:2:1);

   s:=0;

{считаем количество элементов превышающих среднее значение}
   For i:=1 to 3 do   
      For j:=1 to 3 do     
         if sred<A[i,j] then s:=s+1;

   Writeln;
   Writeln(' ',s,' элементов массива превышающие средне арифметическое');
READLN;
END.

Answer 2

Конечно, я помогу вам решить задачу по информатике.

Для начала, давайте разберемся, как найти среднее значение элементов двумерного массива.

1. Объявите двумерный массив с заданными размерами и заполните его значениями. Например:

const
  N = 3; // количество строк
  M = 4; // количество столбцов

var
  arr: array[1..N, 1..M] of Integer;

2. Заполните массив значениями. Например:

for i := 1 to N do
  for j := 1 to M do
    arr[i, j] := Random(10); // случайное число от 0 до 9

3. Найдите сумму всех элементов массива и количество элементов:

sum := 0;
count := 0;

for i := 1 to N do
  for j := 1 to M do
  begin
    sum := sum + arr[i, j];
    count := count + 1;
  end;

4. Вычислите среднее значение:

average := sum / count;

Теперь перейдем к подсчету количества элементов, превышающих среднее значение.

5. Объявите переменную для подсчета количества элементов:

exceedCount := 0;

6. Пройдитесь по всем элементам массива и проверьте, превышает ли значение элемента среднее значение:

for i := 1 to N do
  for j := 1 to M do
    if arr[i, j] > average then
      exceedCount := exceedCount + 1;

7. Выведите результат:

writeln('Среднее значение:', average);
writeln('Количество элементов, превышающих среднее значение:', exceedCount);

Вот и все! Теперь программа будет находить среднее значение элементов двумерного массива и подсчитывать количество элементов, превышающих это значение. Вы можете изменить размеры массива и заполнить его своими значениями в соответствии с вашей задачей.