viết chương trình tính tổng các phần tử lớn hơn 0 của dãy n số nhập vào từ bàn phím Cần gấp ạ

0 bình luận về “viết chương trình tính tổng các phần tử lớn hơn 0 của dãy n số nhập vào từ bàn phím Cần gấp ạ”

1. program tinh_tong;

   uses crt;

   var t,i,n:longint;

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

   begin

   t:=0;

   wirte(‘nhap do dai mang:’); readln(n);

   for i:=1 to n do 

   begin

   write(‘nhap phan tu thu ‘,i,’ :’);readln(a[i]);

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

   end;

   writeln(‘tong cua mang la :’,t);

   readln

   end.

   CHÚC BẠN HỌC TỐT ^.^!

   Bình luận

2. program tinhtong;

   uses crt;

   var i, s, n : integer;

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

   begin

   clrscr;

   write(‘So thu n la: ‘); readln(n);

   s:=0

   for i:=1 to n do begin

   write(‘Nhap so thu ‘,i); readln(a[i]);

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

   writeln(‘Tong cac so do la: ‘,s);

   readln

   end.

   Bình luận