Viết chương trình thực hiện ccas yêu cầu sau:( sử dụng lệnh array..,If…) +In ra các giá trị phần tử vừa nhập +In ra màn hình tổng số lẻ của dãy vừa

0 bình luận về “Viết chương trình thực hiện ccas yêu cầu sau:( sử dụng lệnh array..,If…) +In ra các giá trị phần tử vừa nhập +In ra màn hình tổng số lẻ của dãy vừa”

1. program bt;
   var a:array[1..1000] of integer;
   i,n,t:integer;
   begin
   write(‘nhap so phan tu cua mang’);
   readln(n);
   for i:=1 to n do
   begin
   write(‘phan tu thu ‘,i,’ : ‘);
   readln(a[i]);
   end;
   for i:=1 to n do
   t:= t + a[i] ;
   write(‘tong cac phan tu trong mang la :’,t);
   readln
   end.

   Bình luận

2. program minh;
   var a:array[1..1000] of integer;
   i,n,t:integer;
   begin
   write(‘so pt’);readln(n);
   for i:=1 to n do
   begin
   write(‘,i,’ : ‘);
   readln(a[i]);
   end;
   for i:=1 to n do
   t:= t + a[i] ;
   write(t);
   readln
   end.

   Bình luận