Câu 4: Viết chương trình nhập vào N phần tử (1<=N<=1000). Sau đó, tính tổng các phần tử trong dãy số, đếm số lần xuất hiện của các phần tử của dãy số. Ví dụ: Nhập từ bàn phím 5 1 5 1 2 3 kết quả -Tong cac phan tu la: 12 -So lan xuat hien cua cac phan tu: 1: 2 lan 5: 1 lan 2: 1

ngoductai1234567892

2 năm trước

Câu 4: Viết chương trình nhập vào N phần tử (1<=N<=1000). Sau đó, tính tổng các phần tử trong dãy số, đếm số lần xuất hiện của các phần tử của dãy số. Ví dụ: Nhập từ bàn phím 5 1 5 1 2 3 kết quả -Tong cac phan tu la: 12 -So lan xuat hien cua cac phan tu: 1: 2 lan 5: 1 lan 2: 1 lan 3: 1 lan

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

Dattony2009

Var A:Array[1..1000] Of Integer;
n,i,dem,d:Longint;
Begin
Fillchar(A,sizeof(A),0);
Readln(n);
For i:=1 to n do
Begin
Read(d);
dem:=dem+d;

A[d]:=A[d]+1;
End;
Writeln('Tong day la: ',dem);
For i:=1 to 1000 do If A[i]>0 then Writeln(i,': ',A[i],' lan');
Readln;
End.

Vote (0) Phản hồi (0) 2 năm trước

buiminhnhan0

uses crt;
var n,i,s,d,t,j:longint;
a:array[1..1001]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i]);
inc(s,a[i]);
end;
writeln('-Tong cac phan tu la: ',s);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
end;
i:=1;
writeln('-So lan xuat hien cua cac phan tu: ');
while i<=n do
begin
write(a[i],': ');
d:=1;
while a[i]=a[i+1] do begin inc(d); inc(i) end;
inc(i);
writeln(d,' lan');
end;
readln;readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cho hình chóp S.ABCD có đáy là hình thang với AB//CD và AB > CD. Lấy điểm M nằm trên đoạn BC. Tìm giao tuyến của các cặp mặt phẳng : a) (SAC) và (SBD) b) (SAD) và (SBC) c) (SAM) và (SBD) d) (SDM) và (SAB) Giúp em bài hình học không gian lớp 11 này với

Nữa lè :> Gth cho em vì sao đang N là trung điểm lại suy ra được dòng dưới.

mọi ng giúp e vs ạ ! e vote 5 sao luôn

vẽ 1 bé chibi 1 bé đậu mầm cute nha NL: Dạo này mik thấy mọi người hay bình luận về các idol vẽ mới nổi nên nhân tiện hỏi luôn (ko bắt buộc trả lời nha). nêu cho mik 4 dol vẽ mầm hoặc chibi đẹp mới xuất hiện đi ạ

Câu 17: Hai ô tô chuyển động thẳng đều khởi hành đồng thời ở 2 địa điểm cách nhau 20km. Nếu đi ngược chiều thi sau 15 phút chúng gặp nhau. Nếu đi cùng chiều sau 30 phút thì chúng đuổi kịp nhau. Vận tốc của hai xe đó là: (20km/h và 60km/h)

Giúp mình 5 câu này giải thích cũng đc nhé

phân tích đa thức thành nhân tử . x2 + 4y2 + 4xy

ko giải thích Câu 1: Cho dãy số: 706; 707; 708; …; …; 711. Số cần điền vào chỗ chấm là mấy?

Giúp mik vs ạaaaaa Tìm Điều kiện xác định

Oxit nào là oxit axit trong số các oxit kim loại cho dưới đây? A. Li2O B. MgO C. CrO3 D.Cr2O3 Và vì sao

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến