1. Tính tổng các số âm và tổng các số dương của dãy. 2. Tính tích các số chẵn của dãy gồm 10 số nguyên. (Dùng kiểu mảng)

0 bình luận về “1. Tính tổng các số âm và tổng các số dương của dãy. 2. Tính tích các số chẵn của dãy gồm 10 số nguyên. (Dùng kiểu mảng)”

1. 1.

   var n,i,d:longint;

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

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do

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

   for i:=1 to n if a[i] < 0 then then inc(d);

   writeln;

   write(‘So âm: ‘,d);

   readln;

   end.

   Bình luận

2. 1.

   Uses Crt;

   Type Mang = ARRAY[1..50] Of Integer;

   Var A:Mang;

   N,i,S:Integer;

   Begin {Nhập mảng} Write(‘Nhap N=’);

   Readln(N);

   For i:=1 To N Do

   Begin Write(‘A[‘,i,’]=’);

   Readln(A[i]);

   End;

   {Tính tổng}

   S:=0; For i:=1 To N Do

   If A[i]<0 Then S:=S+A[i]*A[i];

   {In kết quả ra màn hình}

   Writeln(‘S= ’, S);

   Readln;

   End.

   2.

   program bt; 
   var a:array[1..1000] : integer; 
   i,n,t:integer; 
   begin 
   write(‘nhap so phan tu cua mang’); 
   readln(n); 
   for i:=1 to n do 
   begin 
   write(‘phan tu thu ‘,i,’ : ‘); 
   readln(a[i]); 
   end; 
   for i:=1 to n do 
   t:= t + a[i] 
   write(‘tong cac phan tu trong mang la :’,t); 
   readln 
   end.

   Bình luận