Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình c

0 bình luận về “Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình c”

1. program bt;

   uses crt;

   var a:array[1..1000] of integer;

   i,n,tong,tich:integer;

   begin

   clrscr;

   write(‘Do dai cua day la:’); readln(n);

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]=’); readln(a[i]);

   end;

   tong:=0; tich:=1;

   for i:=1 to n do

   begin

   tong:=tong + a[i];

   tich:=tich*a[i];

   end;

   write(‘tong cac so tu nhien nhap tu ban phim:’,tong);

   writeln;

   write(‘tich cac so tu nhien nhap tu ban phim:’,tich);

   readln

   end.

   Bình luận

2. program bt;

   uses crt;

   var a: array[1..100] of integer;

         i, n, le: integer;

   begin

     clrscr;

     write(‘Nhap n la:’); readln(n);

     for i := 1 to n do begin

       writeln(‘Nhap a[‘, i ,’]=’);

       readln(a[i]);

     end;

     le := 0;

     for i := 1 to n do if a[i] mod 2 <> 0 then le := le + 1;

     writeln(‘Co’, le ,’ so le co trong mang’);

     readln

   end.

   Xin câu trả lời hay nhất ạ :3

   Bình luận