простой вопрос по Паскалю.

[5naip]

в ручной неплохо бы добавить write,чтоб иметь представление какой элемент вводишь.

for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;

[Sazary]

Amenus Так все работает ) Достаточно запустить) Только числа вводить неудобно

5naip +1. Хотя не понимаю, чем рандом не устраивает..

[Amenus]

Ну ничего)пока так помучаюсь)огромное всем Спасибо!=)

[Neymexa]

Сообщение от Sazary

начальное значение k должно быть 1 (или заменить k<3 на k<2), иначе будет выводить 3 элемента.

Программа, в принципе, работает. Видимо, вы имеете в виду, что не успеваете увидеть результат? Тогда перед последним end'ом надо добавить readln;

var
 n, i, j, k :integer;
a: array [1..20,1..20] of integer;


begin

k:=0; 
readln(n);
randomize;
for i:=1 to n do
  begin
  for j:=1 to n do
   begin
   a[i,j] := random(15)-5;
   write(a[i,j]:4);
   end;
  writeln;
  end;
writeln;

for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  if (a[i,j] < 0) and (i < j) and (k < 2) then
   begin
   writeln(a[i,j]);
   k:=k+1;
   end;
  end;
 end;
readln;
end.

upd Не успел чуток )

что значит такой вывод write(a[i,j]:4);
что за цыфра 4что она делает?

[alex_fcsm]

это означает что под вывод a[i,j] будет выделено 4 символа

После каждого выражения, вы можете добавить опции форматирования:
writeln(x:4:2)
4 : width ширина поля для строк + чисел
2 : precision десятичные цифры для чисел

[Neymexa]

Сообщение от alex_fcsm

это означает что под вывод a[i,j] будет выделено 4 символа

После каждого выражения, вы можете добавить опции форматирования:
writeln(x:4:2)
4 : width ширина поля для строк + чисел
2 : precision десятичные цифры для чисел

благодарю за понятное пояснение!