Sử dụng mảng. Viết chương trình nhập n và in theo thứ tự ngược Ví dụ nhập 4 3 8 6 => in ra 8 6 4 3

2 câu trả lời

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.

program ct;

uses crrt;

var i,n:integer;

A:array[1..100] of integer;

begin

clrscr;

  write('nhap n:=');readln(n);

    for i:=1 to n do

begin

   write('nhap mang A[',i,']:=');readln(A[i]);

end;

  for i:=n downto 1 do write(A[i]:3);

writeln;

readln

end.