Создать массив, каждый элемент которого равен количеству элементов соответствующей строки матрицы, больших X

@J8j4r1n · Регистрация: 04.12.2016

Author24 — интернет-сервис помощи студентам

Дан двумерный массив размером 5х6, заполненный целыми числами из [-34;45). сформируйте одномерный массив, каждый элемент которого равен количеству элементов соответствующей строки, больших данного числа(Х).

@ildwine · 23.12.2016, 20:25

Pascal

const
  n = 5; {строки}
  m = 6; {столбцы}
var
  matrix : array[1..n, 1..m] of integer;
  list : array[1..n] of integer;
  x, i, j, k : integer;
begin
  randomize;  
  {заполнение матрицы и вывод}
  writeln('матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      matrix[i,j] := random(78) - 34; {чтобы был диапазон [-34;45)}
      write(matrix[i,j] : 4)
    end;
    writeln
  end;
  {ввод числа X}
  write('введите число X: '); readln(x);
  {формирование и вывод массива по условию}
  writeln('массив количеств элементов в строке больших X:');
  for i := 1 to n do
  begin
    k := 0;
    for j:= 1 to m do
      if matrix[i,j] > x then inc(k);
    list[i] := k;
    write(list[i] : 4)    
  end;
  readln
end.

Добавлено через 32 секунды

Код

матрица:
 -23  -5  -5  23  -8
  41  -7  22   1  19
 -32  40   9  -4  17
 -18  -7 -34  24  -2
  31  43   0  33  15
введите число X: 0
массив количеств элементов в строке больших X:
   1   4   3   1   4

@J8j4r1n 0 / 0 / 0 Регистрация: 04.12.2016 Сообщений: 7
		1
	Создать массив, каждый элемент которого равен количеству элементов соответствующей строки матрицы, больших X 21.12.2016, 18:03. Показов 1651. Ответов 1 Метки нет (Все метки) Дан двумерный массив размером 5х6, заполненный целыми числами из [-34;45). сформируйте одномерный массив, каждый элемент которого равен количеству элементов соответствующей строки, больших данного числа(Х). 0

	23.12.2016, 20:25

Опции темы