Viết chương trình tính tổng các số dương khi cho một dãy số nguyên tùy ý nhập từ bàn phím

0 bình luận về “Viết chương trình tính tổng các số dương khi cho một dãy số nguyên tùy ý nhập từ bàn phím”

1. mk nghĩ là thế nha bạn

   uses crt;

   var a:array[1..100] of integer;n,i,s:integer;

   begin

   clrscr;

   readln(n);

   for i:=1 to n do

   begin

   write(‘A[‘,i,’]’);

   readln(a[i]);

   end;

   s:=0;

   for i:=1 to n do

   begin

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

   end;

   write(s);

   readln;

   end.

   Bình luận