Я сруктуру рандома не изучал, но инстнктивно кажется, что так будет случайнее
Кто-нить конец задачи читал, вообще,
Ручной ввод нужен, а то какие "дураки", если комп все делает?
"защита от дурака" 0.01 beta версия
Если вводить напрямую read(a[i,j]),
то защиту поставить трудно, вроде можно исключительную ситуацию обработать, но в паскале я не знаю как,
лучше вводить элементы матрицы в строку
Код
var s:string;
var y:1..2; r:0..9;
a,b:array[1..6,1..6]of integer;
i,j,k,l:integer;
begin
........****................цикл
read(S);
i:=1;j:=1; a[i,j]:=0;
y:=1;
if s[1]='-' then y:=2;
for k:= y to length(s) do
if s[k] in ['0'..'9'] then
begin
val(s[k],r,l);
a[i,j]:= a[i,j]+r*round(exp((length(s)-k)*ln(10)));
end
else
begin
writeln('Ошибка!');
readln;
readln;
Exit;
End;
If s[1]='-' then a[I,J]:= a[I,J]*(-1);
…………*****…………….
writeln(a[i,j]);
readln;
readln;
end.
--Какая-то лажа, вроде должна работать, но…(От нас защиты нет!(шутка))
Или по-«Крутому» 0.02 beta
Код
var a:integer;
begin
{$i-}
readln(a);
if IoResult<>0 then writeln('Errrror')
else writeln(a);
{$i+}
readln;
readln;
end.