Cho dãy số `9;-5;17;0;2;-15` Hãy mô tả thuật toán để: a) Tính tổng các số trên. b) tính tổng các số nguyên dương trên. c) Tính tổng các số nguyên âm t

0 bình luận về “Cho dãy số `9;-5;17;0;2;-15` Hãy mô tả thuật toán để: a) Tính tổng các số trên. b) tính tổng các số nguyên dương trên. c) Tính tổng các số nguyên âm t”

1. Gọi a[1],a[2],a[3],a[4],a[5],a[6],lần lượt là 9;-5;17;0;2;15

   a)b1: s<–a[1]+a[2]+a[3]+a[4]+a[5]+a[6]

   b2:in kết quả ra màn hình

   b)b1:s<–0;i<–1;

   b2:if a[i]>0 then s<–s+a[i];

   b3:In kết quả ra màn hình

   c)

   b1:s<–0;i<–1;

   b2:if a[i]<0 then s<–s+a[i];

   b3:In kết quả ra màn hình

   d)

   b1:min<–a[1];i<–2;

   b2:if a[i]<min then min<–a[i];

   b3:In kết quả ra màn hình

   e)

   b1:max<–a[1];i<–2;

   b2:if a[i]>max then max<–a[i];

   b3:In kết quả ra màn hình

   Bình luận

2. Phần nhập:

   write(‘nhap gia tri cac so’);readln(n);

   fo i := 1 to n do

   begin

          readln(a[i]);

   end;

   s := 0;

   max :=0;

   min :=0;

   t1 :=0;

   t2 :=0;

   a) s:= s+a[i];

   write(s);

   b)+c)if a[i] mod 2 = 0 then t1:=t1+a[i];

   else t2:=t2+a[i];

   write(t1);

   write(t2);

   d)min := a[1];

   if a[1] > a[i] then a[i] := min

   write(min);

   e) max :=a[1];

   write(max);

   end.

   if a[i] < a[i] then max := a[i] 

   Bình luận