Помогите пожалуйста! Заполнить двумерный массив состоящий из 3 строк и 3 столбцов...

Question

Помогите пожалуйста!
Заполнить двумерный массив состоящий из 3 строк и 3 столбцов случайным образом. Элементы массива принадлежат промежутку от 15 до 25. Заменить главную диагональ значение числа 5 и вывести на экран полученный массив. Программа на Паскале

Answer 1

Var a:array[1..3,1..3] of integer;
i,j:integer;
begin
randomize;
for i:=1 to 3 do begin
writeln;
for j:=1 to 3 do begin
a[i,j]:=random(10)+15;
if i=j then a[i,j]:=5;
write(a[i,j],' ');
end;
end;
end.