Viết chương trình nhập dãy số n và in ra màn hình.

0 bình luận về “Viết chương trình nhập dãy số n và in ra màn hình.”

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.

   Bình luận