Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- function ReadMatrix (var Matrixx: MatrixType; FName: string);
- var
- MyFileInPut: TextFile;
- i, j, w: Integer;
- Arr: array of array of Integer;
- begin
- AssignFile(MyFileInPut, FName);
- Reset(MyFileInPut);
- i := -1;
- while not Eof(MyFileInPut) do begin
- Inc(i);
- SetLength(arr, i + 1);
- j:= -1;
- while not Eoln(MyFileInPut) do begin
- Inc(j);
- SetLength(arr[i], j + 1);
- Read(MyFileInPut, arr[i, j]);
- end;
- Readln(MyFileInPut);
- end;
- CloseFile(MyFileInPut);
- end;
- function Average (MatrEl: array of array of Integer);
- var
- Sum, Amount, i, j, n: Integer;
- begin
- Sum := 0;
- Amount := 0;
- for i := 0 to n - 1 do
- if MatrEl[i, j] > 0 then
- begin
- Sum := Sum + MatrEl[i, j];
- Inc(Amount);
- end;
- Average := Sum/Amount;
- end;
Advertisement
Add Comment
Please, Sign In to add comment