Viết chương trình nhập vào và in ra 10 số tự nhiên đầu tiên bằng dữ liệu kiểu mảng

0 bình luận về “Viết chương trình nhập vào và in ra 10 số tự nhiên đầu tiên bằng dữ liệu kiểu mảng”

1. program taolao;

   uses crt;

   var A:array[1..10] of integer;

         i:integer;

   begin clrscr;

      for i:=1 to 10 do

        begin

           write(‘Nhap 10 so tu nhien dau tien: ‘); readln(A[i]);

         end;

      writeln(’10 so tu nhien dau tien la: ‘);

      for i:=1 to 10 do

        write(A[i]:3);

   readln;

   end.

   Học tốt!

   Bình luận

2. program ct;

   uses crt;

   var i,n:integer;

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

   begin

   clrscr;

   for i:=1 to n do

   begin

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

   end;

   writeln;

   write(’10 so tu nhien dau tien’);

   for i:=1 to n do

   write(A[i]:4);

   readln

   end.

   Bình luận