Изменить таблицу так, чтобы в строках остались элементы которые встречаются более 1 раза

@Falen_57 · Регистрация: 23.04.2012

Изменить таблицу "a[1..m,1..n]" так, чтобы в строках остались элементы которые встречаются более 1 раза, остальные заменить нулем

@Falen_57 · 15.05.2012, 09:41 **[ТС]**

вот программа на паскале мне нужно перевести на С помогите

Pascal

uses crt;
 
var i,j,m,n,k,flag:longint;
 
    a:array[1..5,1..5]of longint;
 
 begin
 
  clrscr;
 
   write('введите кол-во строк ');readln(m);
 
   write('введите кол-во столбцов ');readln(n);
 
   for j:=1 to m do
 
    for i:=1 to n do
 
     begin
 
      write('a[',i,',',j,']=');readln(a[i,j]);
 
     end;
 
   flag:=0;
 
   for j:=1 to m do
 
    for i:=1 to n do
 
      begin
 
       k:=1;
 
        while k<=n do
 
         begin
 
          if k=i then inc(k);
 
          if a[i,j]=a[k,j] then flag:=1;
 
          inc(k);
 
         end;
 
       if flag=0 then a[i,j]:=0;
 
       flag:=0;
 
      end;
 
   for j:=1 to m do
 
    begin
 
     writeln('');
 
      for i:=1 to n do
 
       write(a[i,j]);
 
    end;
 
  readln;
 
 end.

@Falen_57 0 / 0 / 0 Регистрация: 23.04.2012 Сообщений: 8
		1
	Изменить таблицу так, чтобы в строках остались элементы которые встречаются более 1 раза 15.05.2012, 08:59. Показов 697. Ответов 1 Метки нет (Все метки) Изменить таблицу "a[1..m,1..n]" так, чтобы в строках остались элементы которые встречаются более 1 раза, остальные заменить нулем 0

Опции темы