Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  sa
Language: PASCAL
Code:
Program mang_1;
uses crt;
var n, i: integer;
    M: array[1..100] of real;
Begin
    write('Nhap so n: ');readln(n);
    for i:=1 to n do
    Begin
        write('M[',i,']='); readln(M[i]);
    end;
    for i:= n downto 1 do write(m[i],’ ,’);
    readln
end.

          
Comments: