, .Hướng dẫn: – Dùng biến n để lưu lượng số cần nhập. – Dùng mảng để lưu các số vừa nhập. – Cho i chạy từ n về 1 để in các số vừa nhập. .Mã chương trình: 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 oken;
uses crt;
var a: array [1..100] of intger;
i,n:integer;
begin
clrscr;
write(‘nhap so phan tu cua mag: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i’]: ‘); readln(a[i]);
end;
writeln(‘mang theo thu tu nguoc lai’);
for i:=n downto 1 do
write(a[i],’ ‘);
readln;
end.
,
.Hướng dẫn:
– Dùng biến n để lưu lượng số cần nhập.
– Dùng mảng để lưu các số vừa nhập.
– Cho i chạy từ n về 1 để in các số vừa nhập.
.Mã chương trình:
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
CHÚC BN HC SIÊU TỐT XIN CTLHN NA # KHA9.