Giải giúp mình bài tin 8 viết chương trình nhập vào giải số nguyên n và xuất ra dãy số đó nhập từ bàn phím

0 bình luận về “Giải giúp mình bài tin 8 viết chương trình nhập vào giải số nguyên n và xuất ra dãy số đó nhập từ bàn phím”

1. program ct;

   uses crt;

   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;

   writeln(‘day so vua nhap la:’);

   for i:=1 to n do

   write(A[i]:4);

   readln   

   end.     

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,n: integer;
   begin
       clrscr;
       write(‘Nhap so phan tu cua mang: ‘); readln(n);
       for i:=1 to n do
           begin
               write(‘a[‘,i,’]: ‘);
               readln(a[i]);
           end;
       write(‘Mang vua nhap: ‘);
       for i:=1 to n do
           write(a[i],’ ‘);
       readln;
   end.

   ${Oken}$

   Bình luận