Nhập một mạng số nguyên gồm 10 phần tử tính tổng các số lớn hơn 0và đưa ra màn hình.(viết ct )

0 bình luận về “Nhập một mạng số nguyên gồm 10 phần tử tính tổng các số lớn hơn 0và đưa ra màn hình.(viết ct )”

1. • program bai_tap;
     uses crt;
     var a:array[1..10] of integer;
     n,i:byte;
     s,max,min:integer;
     begin
     clrscr;
     write(‘nhap so luong phan tu cua mang: ‘);
     readln(n);
     for i:= 1 to n do
     begin
     write(‘nhap phan tu thu [‘,i,’]= ‘);
     readln(a[i]);
     end;
     {cau a) ======================}
     writeln(‘mang ban vua nhap la: ‘)
     for i:= 1 to n do
     write(a[i]:4);
     writeln;
     {cau b) ======================}
     s:=0;
     for i:= 1 to n do
     s:=s+a[i];
     writeln(‘tong cac phan tu trong mang la: ‘,s);
     {cau c) ======================}
     max:=a[1];
     for i:= 1 to n do
     if max < a[i] then max:=a[i];
     writeln(‘gia tri max la: ‘,max);
     {cau d) ======================}
     min:=a[i];
     for i:= 1 to n do
     if min > a[i] then min:=a[i];
     writeln(‘gia tri nho nhat la: ‘,min);

     readln
     end

   Bình luận

2. program ct;

   uses crt;

   var i,S:integer;

         A:array[1..10] of integer;

   begin

   clrscr;

      for i:=1 to 10 do

   begin

      write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

     S:=0;

       for i:=1 to 10 do 

          if A[i]>0 then S:=S+A[i];

       writeln(‘tong cac so lon hon 0 la:’,S);

   readln

   end.

   Bình luận