Дана матрица(0-4,0- 4). Выделить элементы главной диагонали и выше, сформировать одномерный массив. можно просто формулу

в i-строке элемент главной диагонали в столбце с номером i (то есть i=j),
а те элементы, которые выше главной диагонали имеют номера столбцов i+1,i+2,..,n

формировать одномерный массив можно по-разному
это проходом по строкам

k:=0;
for i:=1 to n do
fot j=i to n do
begin
k:=k+1;
b[k]:=a[i,j]
end;