Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Khánh Mỹ

viet chuong trình nhập vào mảng 1 chiều a gồm n phần tử là số nguyên dương (1<n<=100).Tính tổng các phần tử có giá trị lớn nhất trong mảng?

Nguyễn Lê Phước Thịnh
31 tháng 1 2021 lúc 8:34

uses crt;

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

i,n,t,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

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

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

t:=0;

for i:=1 to n do 

  if max=a[i] then t:=t+a[i];

writeln('Tong cac phan tu co gia tri lon nhat la: ',t);

readln;

end.


Các câu hỏi tương tự
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Xuân Linh
Xem chi tiết
Nguyễn Quang Hà
Xem chi tiết
Bé Thúy
Xem chi tiết
Nguyễn Vân
Xem chi tiết