матрица

[Вячик]

Пусть дана символьная квадратная матрица порядка 10. Замените буквой а все ее элементы, расположенные выше главной диагонали.
нужно написать при помощи функции вот этот кад
for i:=1 to 10 do
for j:=1 to 10 do
if i<j then a[i,j]:='a';
writeln;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j],' ');
writeln;
end;

var
   a:array[1..10,1..10]of char;
   i,j:integer;
begin
   randomize;
   for i:=1 to 10 do
   for j:=1 to 10 do
    a[i,j]:=char(random(26)+integer('a'));
   for i:=1 to 10 do
    begin
       for j:=1 to 10 do
        write(a[i,j],'  ');
       writeln;
    end;
   for i:=1 to 10 do
   for j:=1 to 10 do
    if i<j then a[i,j]:='a';
   writeln;
  for i:=1 to 10 do
    begin
       for j:=1 to 10 do
        write(a[i,j],'  ');
       writeln;
    end;
    end.

[Serge_Bliznykov]

так, код у Вас нормальный, рабочий.

в чём, собственно, состоит вопрос?

[ZX Spectrum-128]

const
  n = 10;

type
  matrix = array[1..n, 1..n] of char;

var
  a: matrix;
  i, j: integer;

function ChangeA(var x: matrix): boolean;
var
  i, j: integer;

begin
  for i := 1 to n do
    for j := 1 to n do
      if i < j then 
        x[i, j] := 'a';
end;

begin
  randomize;
  writeln('Initial matrix:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := char(random(26) + integer('a'));
      write(a[i, j]:5 );
    end;  
    writeln;
  end;
  writeln('Transformed matrix:');
  ChangeA(a);
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:5 );
    writeln;
  end;
  
end.

[Вячик]

написать код при помощи функции или процедуры
writeln('Transformed matrix:');
ChangeA(a);
for i := 1 to n do
begin
for j := 1 to n do
write(a[i, j]:5 );
writeln;
end;

[ZX Spectrum-128]

Написал же:

ChangeA(a);