Есть вот такое задание:
Уплотнить заданную матрицу, удаляя из нее строки и столбцы, заполненные нулями (оформить в виде процедуры)
Найти номер первой из строк, содержащих хотя бы один положительный элемент (оформить в виде функции)
Я вот сделал второе задание, а с первым ни как :(:
| Код |
PROGRAM prog1;
CONST N=6;
TYPE arr=array[1..N,1..N] of integer;
VAR a:arr;
filename:string;
fistPlus:integer;
PROCEDURE init(CONST filename:string; VAR mas:arr; CONST N:integer);
VAR i,j:integer;
f:text;
BEGIN
{$I-}
assign(f,filename);reset(f);
IF ioresult<>0 THEN BEGIN
WRITELN('ЋиЁЎЄ ®вЄалвЁп д ©« ');
READLN;HALT;
END;
FOR i:=1 TO N DO BEGIN
FOR j:=1 TO N DO BEGIN
READ(f,mas[i,j]); WRITE(mas[i,j]:1,' ');
END;
WRITELN;
END;
END;
FUNCTION findPlus(CONST Mas:arr; CONST N:integer):integer;
LABEL Out;
VAR i,j:integer;
BEGIN
FOR i:=1 TO N DO
FOR j:=1 TO N DO
IF Mas[i,j]>0 THEN BEGIN findPlus:=i; GOTO Out; END;
Out:
END;
BEGIN
filename:='input.txt';
init(filename,a,N);
fistPlus:=findPlus(a,N);
WRITELN('1ij pologitilij element nahoditcia v ',fistPlus:1,' stroke');
readln;
END.
|
Кто может чем помочь? Заранее всех благодарю. |