Viết chương trình nhập n phần tử của mảng A Làm chi tiết Ko spam

0 bình luận về “Viết chương trình nhập n phần tử của mảng A Làm chi tiết Ko spam”

1. uses crt;
   var i,n:byte;
   a:array[1..100] of integer;
   BEGIN
           clrscr;
           write(‘Nhap N:’); readln(n);
           for i:=1 to n do
           begin
                   write(‘Nhap a[‘,i,’]’);
                   readln(a[i]);
           end;
           readln
   END..

   Chúc bạn học tốt.

   Cho mik xin ctlhn.

   Trả lời

2. program   MangA;

   uses     crt;

   var     A:array [1..N] of real;

   i:byte;

   begin

   clrscr;

   writeln(‘Nhap du lieu mang A); readln(A);

   write(‘Nhap N’); readln(N);

   (nhập dữ liệu)for i:=1 to N do

   begin

   write (‘A[‘,i,’]=’);

   readln(A[i]);

   end;

   (in dữ liệu)for i:=1 to n do write( A[i]:6);

   readln;

   end.

   *** chú ý:

   cái phần trên là theo mình hiểu 

   những phần mình làm mình đã chú thích vào rồi ý bạn không hiểu phần nào thì cmt nhé

   hoặc mình làm sai chỗ nào thì bạn cmt để mình giải lại nhé 

   **cảm ơn <3 

   Trả lời