Сформировать одномерный массив из количества ненулевых элементов строк матрицы

@VoltZZZ · Регистрация: 23.02.2012

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

Очень нужна помощь в решении задачи, помогите пожалуйста:

Сформировать одномерный массив из количества ненулевых элементов строк матрицы.

@ega2701 · 23.02.2012, 21:30

я не совсем понял задачу но возможен такой вариант

Delphi

a:array [1..25] of integer;
b:array [1..5,1..5] of integer;
 
k:=1;
for i :=1 to 5 do
  for j:=1 to 5 do
    begin
      if b[i,j]<>0
        then
          begin
            a[k]:=b[i,j];
            inc(k);
          end;
 
    end;

@ermolay · 23.02.2012, 21:37

Pascal

const
  n=5;
var
  a: array[1..n,1..n] of integer;
  b: array[1..n*n] of integer;
  i,j,k: integer;
begin
  randomize;
  k:=0;
  writeln('dvumernii massiv');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(5);
      if a[i,j]<>0 then
      begin
        inc(k);
        b[k]:=a[i,j];
      end;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  writeln;
  writeln('odnomernii..:');
  for i:=1 to k do write(b[i],' ');
  readln;
end.

в общем тоже самое)

@SuPeR XaKer · 23.02.2012, 21:40

количество-это значит количество, а не сами элементы. Посчитать кол-во элементов в каждой строке и записать это кол-во в массив.

@versa4e · 23.02.2012, 21:41

Массив судя по условию надо формировать из количества ненулевых эл. строк, а не элементов не равных нулю.

Pascal

const 
  nmax=50;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
  Tarr=array[1..nmax] of integer;
var
  a:Tmatrix;
  b:Tarr;
  i,j,k,f,m,n:integer;
begin
  repeat
    write('Kolichestvo strok v matritse, ne bolee ',nmax,':');
    readln(n);
    write('Kolichestvo stolbtsov v matritse, ne bolee ',nmax,':');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  randomize;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(10);
          write(a[i,j]:4);
        end;
      writeln;
    end;
  writeln;
  f:=0;
  for i:=1 to n do
    begin
      k:=0;
      for j:=1 to m do
        if a[i,j]<>0 then
          k:=k+1;
      f:=f+1;
      b[f]:=k;
    end;
  writeln('Poluchenniy odnomerniy massiv:');
  for i:=1 to f do
    write(b[i]:4);
  writeln;
end.

@ermolay · 23.02.2012, 21:44

Сообщение от SuPeR XaKer

Посчитать кол-во элементов в каждой строке и записать это кол-во в массив.

Pascal

const
  n=5;
var
  a: array[1..n,1..n] of integer;
  b: array[1..n*n] of integer;
  i,j,k: integer;
begin
  randomize;
  writeln('dvumernii massiv');
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
    begin
      a[i,j]:=random(5);
      if a[i,j]<>0 then
      begin
        inc(k);
        b[i]:=k;
      end;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  writeln;
  writeln('odnomernii..:');
  for i:=1 to n do write(b[i],' ');
  readln;
end.

Сформировать одномерный массив из количества ненулевых элементов строк матрицы

Решение

Решение

Решение

@VoltZZZ 2 / 2 / 0 Регистрация: 23.02.2012 Сообщений: 52
		1
	Сформировать одномерный массив из количества ненулевых элементов строк матрицы 23.02.2012, 21:20. Показов 1183. Ответов 5 Метки нет (Все метки) Очень нужна помощь в решении задачи, помогите пожалуйста: Сформировать одномерный массив из количества ненулевых элементов строк матрицы. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	23.02.2012, 21:40	4
	количество-это значит количество, а не сами элементы. Посчитать кол-во элементов в каждой строке и записать это кол-во в массив. 0

	23.02.2012, 21:44