ну так и напишем процу для ввода
Pprocedure Input;
begin
Writeln('Input dimension of matrix:');
Readln(n);
While not(n in [1..100]) do begin
Writeln('Error. Input again:');
Readln(n);
end;
For i := 1 to n do
For j := 1 to n do begin
Writeln('Input ('+IntToStr(i)+','+IntToStr(j)+') element of matrix');
Readln(a[i,j]);
end;
end;
|