nhập vào dãy N số nguyên a1,a2,…,aN.Hãy đếm số lần xuất hiện của ai và tính tổng các phần tử có trong dãy

0 bình luận về “nhập vào dãy N số nguyên a1,a2,…,aN.Hãy đếm số lần xuất hiện của ai và tính tổng các phần tử có trong dãy”

1. uses crt;

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

   i,n,t:integer;

   begin

   clrscr;

   write(‘Nhap n=’); readln(n);

   for i:=1 to n do 

   begin

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

   end;

   t:=0;

   for i:=1 to n do 

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

   writeln(‘Tong cac phan tu la: ‘,t);

   readln;

   chắc vậy :”> 

   end.

   Bình luận

2. uses crt;
   var lst:array[1..100] of integer;
       i,n,x,tong,count:longint;
   Begin
    clrscr;
    write(‘Nhap n: ‘);
    readln(n);
    for i:=1 to n do
    begin
     write(‘lst[‘,i,’]= ‘);
     readln(lst[i]);
    end;
    write(‘Nhap so can dem so lan xuat hien: ‘);
    readln(x);
    tong:=0; count:=0;
    for i:=1 to n do
    begin
     tong:=tong+lst[i];
     if lst[i] = x then count:=count+1;
    end;
    WriteLn(‘Tong cua cac phan tu trong mang la: ‘,tong);
     writeln(‘Tong so lan xuat hien cua so ‘,x,’ la: ‘,count);
    readln;
   end.

   Dựa theo đề bạn gửi thì có thể là như thế này, đề cũng không rõ ràng lắm. cho mình ctlhn nha 

   Bình luận