Cho dãy A thuộc N số nguyên a1, a2, -aN trình bày thuật toán tính tổng các số không âm là bội của 3

0 bình luận về “Cho dãy A thuộc N số nguyên a1, a2, -aN trình bày thuật toán tính tổng các số không âm là bội của 3”

1. program tinhtchboi3;

   uses crt;

   var i,n : integer;

   s:real;

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

   begin

   clrscr;

   s:=0;

   writeln(‘nhap so phan tu cua day so A’,n); readln(n);

   for i:= 1 to n do

   begin

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

   end;

   if a[i] >= 0 then

   if (a[i] mod 3 ) then

   begin

   s:=S+a[i];

   Writeln(‘tong cac so khong am la boi cua 3 la’,S);

   readln;

   end

   else

   write(‘day khong phai phai la so phu hop voi dieu kien cua de bai ‘);

   readln

   end.

   Bình luận