Kiểu dữ liệu có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Thi Đua Khen Thưởng

Nhập vào 1 mảng có N số nguyên ( N< 1000 ) 

1) Tính tổng các số chia hết cho 3 trong mảng vừa nhập

2) Tìm giá trị nhỏ nhất trong mảng , đưa ra vị trí đó . Nếu có nhiều vị trí chứa giá trị nhỏ nhất thì đưa ra vị trí lớn nhất trong các vị trí đó .

Nguyễn Lê Phước Thịnh
25 tháng 3 2021 lúc 19:18

uses crt;

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

i,n,t,min,vt: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] mod 3=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 3 la: ',t);

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

vt:=1;

for i:=1 to n do 

  if min=a[i] then 

begin

if vt<i then vt:=i;

end;

writeln('Gia tri nho nhat la: ',min);

writeln('Vi tri la: ',vt);

readln;

end. 


Các câu hỏi tương tự
Nguyễn Thị Ngọc Ánh
Xem chi tiết
Nguyễn Quyết Chiến
Xem chi tiết
Quang Đỗ
Xem chi tiết
Phạm Việt Bách
Xem chi tiết
pham thuy vy
Xem chi tiết
1LiG R
Xem chi tiết
Lâm Nguyên Khôi
Xem chi tiết
Os. Htt
Xem chi tiết
1LiG R
Xem chi tiết