viết chương trình: -nhập vào 1 dãy số nguyên bất kì -hiển thị dãy số vừa nhập – yêu cầu kết hợp lệnh if và for test chương trình: i

0 bình luận về “viết chương trình: -nhập vào 1 dãy số nguyên bất kì -hiển thị dãy số vừa nhập – yêu cầu kết hợp lệnh if và for test chương trình: i”

1. *Viết chương trình

   uses crt;
   var i,n:integer;
       a:array[1..1000] of integer;
   begin
       clrscr;
       write(‘Nhap n=’);readln(n);
       writeln(‘Nhap day so’);
       for i:=1 to n do
          begin
              write(‘a[‘,i,’]=’);
              readln(a[i]);
          end;
       writeln(‘Day so vua nhap’);
       for i:=1 to n do
          writeln(‘a[‘,i,’]=’,a[i]);
   readln;
   end.

   *Test chương trình

   k = 0;

   *đánh lỗi khá nhiều :v 

   Bình luận

2. 1. 2 yêu cầu đầu: 

   uses crt;
   var i,n:longint; a:array[1..1000000]of longint;
   begin
   clrscr;
      write(‘Nhap so luong phan tu: ‘);readln(n);
      for i:=1 to n do 
         begin 
            write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
         end; 
      for i:=1 to n do write(a[i],’ ‘);
   readln;
   end.

   2. yêu cầu cuối: 

   K=0 nhé bạn.

   Đề không nhầm thì phải có begin, end. Mà k là số thực thì phép mod không thực hiện được. Ở trên là mình sửa chỗ k:=k/i thành k:=k div i rồi khai báo kiểu longint mới chạy được.

   Bình luận