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

[Amenus]

Собственно вот:

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


begin

k:=0; 
readln(n);
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);

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

end.

Нужно было найти первые два отрицательных элемента выше главной диагонали.Условия все правильные.Чего не хватает для вывода результатов?А то я запутался с синтаксисом(

[alex_fcsm]

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


begin
clrscr;
k:=0;
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
 begin
  a[i,j]:=random(7)-random(10);
  write(a[i,j]:3);
 end;
 writeln;
 end;

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

end.

[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 Не успел чуток )

[Amenus]

Всё равно не хочет выводить=\
А при матрице 2х2 с элементами
1 -2
3 -4 выводить только 0=\

[Sazary]

Всё равно не хочет выводить=\

А что выводит? Окно консоли появляется?
Вы чей вариант тестили? Откройте окно "Output" и посмотрите там.

[Amenus]

Sazary,Ваш вариант не выводит.Просто обратно выскакивает в редактирование.Когда смотрю аутпут ,то ответа не вижу,вместо этого на меня смотрит лишь ноль,стоящий после матрицы.

alex_fcsm,
Работает,тголько вот значение переменных мне нужно вводить с клавиатуры.

a[i,j]:=random(7)-random(10);

Какое значение я должен здесь присвоить?

[Sazary]

Ваш вариант не выводит

Уж не знаю что он там не выводит. У меня все работает.

[Amenus]

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

Уж не знаю что он там не выводит. У меня все работает.

Теперь и у меня выводит)видимо у меня руки кривые)Простите)
А как задать ввод переменных массива с клавиатуры а не случайным образом?просто с двумерными массива не дружу.
что-то типа

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

?

[Sazary]

Amenus Да, ручной именно так.
randomize тоже можно удалить.

[Amenus]

собственно вроде сделал)проверьте,пожалуйста:

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

begin

k:=0; 
readln(n);
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);  
for i:=1 to n do
begin
  for j:=1 to n do
   begin
      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.