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

Những câu hỏi liên quan
Võ Thị Thanh Trúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:30

uses crt;

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

n,i,t,max,min: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 la boi cua 3 la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

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

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

end;

writeln('Gia tri lon nhat la: ',max);

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

readln;

end.

Hoàng Trang
Xem chi tiết
Hoàng Trang
Xem chi tiết
Trần Thị Loan
17 tháng 8 2015 lúc 14:11

Em Xét 2 trường hợp: n = 2k và n = 2k + 1

Huy bae :)
Xem chi tiết
Nguyễn Việt Nga
Xem chi tiết
Sherry
7 tháng 4 2017 lúc 16:32

Xét các dạng của n trong phép chia cho 2 và 3

2k  , 2k+1

3p, 3p+1. 3p+2

hoàng nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 1 2022 lúc 22:04

Chọn B

Trần Bùi Minh Anh
Xem chi tiết
Linhhhhhh
Xem chi tiết
NGUYỄN MINH HUY
Xem chi tiết