Crousader
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
type Matr = array[1..100,1..100] of real;
var a:Matr;
n,i,j, m, k:byte;
b: Real;
c:char;
begin
randomize;
repeat
write('n = ');
readln(n);
until (n>=1) and (n<=100) ;
write ('input by hand (y) - ');
readln(c);
if upcase (c)= 'Y' then
for i:=1 to n do
for j := 1 to n do
begin
write('a[',i,', ', j, ']=');
readln(a[i, j]);
end
else
for i:=1 to n do
for j := 1 to n do
a[i, j]:=-100.0-random(200)+random;
for i:=1 to n do
begin
for j := 1 to n do
write(a[i, j]:5:2, ' ');
writeln;
end;
(a[i, j]:=-100.0-random(200)+random; вот в этой строчке поиграйтесь с подбором чисел смотря какие надо) А вообще уже подходит по условию задания.
Добавлено:
Цитата:| а у меня(ваше) генерирует исключительно числа со знаком минус... |
уже работает? |
Похоже что паскаль такие операции с вещественными числами не поддерживает. Отпишитесь пожалуйста, у кого работает. По-другому сделать конечно можно, но принцип тот же... 
