Viết chương trình nhập vào mảng gồm 10 số nguyên Hãy tính tổng các số dương có trong mảng đó rồi đưa kết quả ra màn hình

0 bình luận về “Viết chương trình nhập vào mảng gồm 10 số nguyên Hãy tính tổng các số dương có trong mảng đó rồi đưa kết quả ra màn hình”

1. var s,i:longint;

       a: array[1..10] of longint;

   begin

   for i:=1 to 10 do

   begin

   write(‘Nhap phan tu thu ‘,i);

   read(a[i]);

   if a[i]>0 then s:=s+a[i];

   end;

   writeln;

   write(‘Tong la: ‘,s);

   readln

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var A: array[1..1000] of longint;
       i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 10 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i]>0 then s:=s+A[i];
           End;

           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận