Задать вопрос
11 апреля, 07:25

Задана матрица размером NxM. Получить массив B, куда попадут все элементы исходного массива, которые будут меньше среднего арифметического.

+2
Ответы (1)
  1. 11 апреля, 08:05
    0
    Const n=3; m=4;

    var

    a:array[1 ... n, 1 ... m] of integer;

    b:array[1 ... n*m] of integer;

    i, j, k:integer; sr:real;

    begin

    Randomize;

    writeln ('Исходный массив:') ;

    for i:=1 to n do

    begin

    for j:=1 to m do

    begin

    a[i, j]:=random (100) ;

    write (a[i, j]:4) ;

    end;

    writeln;

    end;

    sr:=0;

    for i:=1 to n do

    for j:=1 to m do sr:=sr+a[i, j];

    sr:=sr / (n*m) ;

    writeln ('sr = ', sr) ;

    k:=0;

    for i:=1 to n do

    for j:=1 to m do

    if a[i, j]
    writeln ('Полученный массив:') ;

    for i:=1 to k do write (b[i]:4) ;

    writeln;

    end.

    Пример:

    Исходный массив:

    72 51 6 83

    51 68 61 25

    22 57 76 79

    sr = 54.25

    Полученный массив:

    51 6 51 25 22
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Задана матрица размером NxM. Получить массив B, куда попадут все элементы исходного массива, которые будут меньше среднего арифметического. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы