Помогитеее.!! Срочнооо.. Дан двумерныймассив массив a[n, m]. Определить количество...

Question

Помогитеее.!! Срочнооо.. Дан двумерныймассив массив a[n, m]. Определить количество элементов четвертого столбца массива, меньших 5.

Comments

на каком языке надо?

Answer 1

ОТДЕЛ Задание+;

ИСПОЛЬЗУЕТ

  Матем ИЗ "...\Отделы\Числа\",

  Приём ИЗ "...\Отделы\Обмен\",

  Вывод ИЗ "...\Отделы\Обмен\";

 

ПЕР

  a: ДОСТУП К РЯД ИЗ РЯД ИЗ ЦЕЛ;

  n, m, сч1, сч2: ЦЕЛ;

  элементов: ЦЕЛ;

 

УКАЗ

  Вывод.Цепь("Введите n (>=5): ");

  n := Приём.Число();

  Вывод.Цепь("^Введите m (>= 5): ");

  m := Приём.Число();

  ЕСЛИ (n < 5) ИЛИ (m < 5) ТО

    Вывод.Цепь("^Некорректные параметры.")

  ИНАЧЕ

    СОЗДАТЬ(a, n, m);

    ОТ сч1 := 0 ДО n - 1 ВЫП

      ОТ сч2 := 0 ДО m - 1 ВЫП

        a[сч1, сч2] := УЗК(ВШИРЦЕЛ(Матем.случ() * 10))

      КОН

    КОН;

    элементов := 0;

    ОТ сч1 := 0 ДО n - 1 ВЫП

      ЕСЛИ a[сч1, 3] < 5 ТО УВЕЛИЧИТЬ(элементов) КОН

    КОН;

    Вывод.ЧЦел("^Элементов 4-го столбца, меньших 5: %d.", элементов, 0, 0, 0)

  КОН

КОН Задание.

Answer 2

// Программа и скриншот ее работы в приложениях

const
    T_max=12;

var  
    i,j,s:byte;
    m,n:byte;
    T:array[1..T_max, 1..T_max]of integer;
   
begin
  write('Введите значение m>4,n>4 для определения массива T[m,n]: ');
  readln(m, n);

  writeln('Заполнение массива случайными данными');
 
  //начальные значения min и max
  for i:=1 to m do begin
    for j:=1 to n do begin
      T[i,j]:=random(-79,79);// диапазон случайных чисел
      write(T[i,j]:6);
     
    end;
    writeln();
  end;

  writeln();
  writeln('Определить количество элементов четвертого столбца массива, меньших 5');
  s:=0;
  for i:=1 to m do
    if (T[i,4]<5) then<br>      s:=s+1;

  writeln('Ответ: условию удовлетворяют ', s, ' элементов');
 end.

---