Достал этот массив

[Bek]

Дан массив nxn, найти нечетные числа расположеные выше диагонали и заменить их на букву А. Без процедуры.

[Chudo4258]

Выше какой диагонали???

[Bek]

выше главной (i<j)

[Sazary]

uses crt;
const zam = 'A';
n = 5;
var
mas : array[1..n,1..n] of integer;
i,j : integer;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  mas[i,j] := random(20)+1;
  write(mas[i,j]:4);
  end;
 writeln;
 end;
writeln;
{-------}
for i:=1 to n do
 begin
 for j:=1 to n do
  if j<=i then write(mas[i,j]:4)
  else
   begin
   if mas[i,j] mod 2 = 0 then write(mas[i,j]:4)
   else write('   ',zam);
   end;
 writeln;
 end;
readln;
end.

Прочитайте правила.

[Bek]

огромная благодарность всем