Мне ответить на вопрос для программирования на фортране. это мой вопрос: «введите 10 одномерных массивов. перепишите элементы массивов построчно в квадратной матрице, расположив их в порядке убывания значений. распечатайте матрицу ».
это моя кодировка, но результат для матрицы (5,4) неверен.

program array_matrix
implicit none
integer, dimension(: ),allocatable : : a,b,c
integer,allocatable: : matrix(: ,: )

integer i,j,temp,n,r,t
print*,'n'
read(*,*) n
allocate(a(n))
print*,'a'
do i=1,n
read(*,*) a(i)
end do
allocate(b(n))
print*,'b'
do i=1,n
read(*,*) b(i)
end do
allocate(c(n+n))
c(1: n)=a
c(n+1: n+n)=b
do i=1,n+n-1
do j=i+1,n+n
if(c(i) temp=c(i)
c(i)=c(j)
c(j)=temp
end if
end do
end do
print*, c

allocate(matrix(5,4))
do r= 1,5
do t= 1,4

matrix(r,t)=c( )
end do
end do
print *, 'matrix='
do r = 1,4
write(*,*) (matrix(r,t), t=1,5)
end do
pause
end program

ответ 1:

Program zadacha;

var

i,n:integer;

begin

 writeln ('Введите число: '); readln(n);

for i:=1 to n do  write(n-i+1);

end.

ответ 2:

Program zadacha;

var

i,a,b:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

  if (i mod 2 <> 0) then writeln(i);

end.

ответ 3:

Program zadacha;

var

i,a,b,sum:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

  if (i mod 10 = 7) then begin sum:=sum+i; end;  

  writeln('Результат: ',sum);

end.

ответ 1:

Program zadacha;

var

i,n:integer;

begin

 writeln ('Введите число: '); readln(n);

for i:=1 to n do  write(n-i+1);

end.

ответ 2:

Program zadacha;

var

i,a,b:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

 if (i mod 2 <> 0) then writeln(i);

end.

ответ 3:

Program zadacha;

var

i,a,b,sum:integer;

begin

 writeln ('Введите A: '); readln(a);

 writeln ('Введите B: '); readln(b);

for i:=a to b do

 if (i mod 10 = 7) then begin sum:=sum+i; end;  

 writeln('Результат: ',sum);

end.