Tin học 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 16/07/2021 By Parker 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
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. Trả lời
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 Trả lời