Creator111
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Если не затруднит не могли бы вот эту программку перевести на Си. Заранее благодарен. program matrix; uses crt; const n=3; m=4; var x:array[1..m,1..n] of integer; i,j,k,l,f,imax,jmax,imin,jmin,g,q,tr:integer; min_element,max_element,max,kl,lk:integer; p:boolean; begin clrscr; for i:=1 to m do begin for j:=1 to n do begin write('Введите [',i,' ',j,']элемент:'); readln(x[i,j]); end; WRITELN; end; for i:=1 to m do begin for j:=1 to n do begin write(x[i,j],' '); end; WRITELN; end; readln; p:=false; for i:=1 to m do begin for j:=1 to n do if x[i,j]=0 then begin for j:=1 to n do if x[i,j]=0 then begin p:=true; end; g:=g+1; p:=false; end; end; if g>0 then if g=1 then Writeln('1 stroka sodergit 0') else Writeln(g,' stroki sodergat 0') else writeln ('Strok sodergashih 0 NET'); for j:=1 to n do begin min_element:=x[1,j]; imin:=1;jmin:=j; for i:=1 to m do if x[i,j]=x[i-1,j] then begin min_element:=x[i,j]; imin:=i; jmin:=j; end; kl:=jmin; max:=0; tr:=0; for lk:=1 to m do begin if min_element=x[lk,kl] then begin tr:=tr+1; end; end; if tr>1 then writeln('povtorov ',tr,' ctolbech ',jmin) else writeln('povtorov NET'); end; readln; end. Вот условие: Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, содержащих хотя бы один нулевой элемент; 2) номер столбца, в котором находится самая длинная серия одинаковых элементов. |