Những câu hỏi liên quan
Tick cho tôi
Xem chi tiết
đăng thu huong
Xem chi tiết
nguyen thi thanh tam
Xem chi tiết
Quân Phạm Nguyễn Hoàng
Xem chi tiết
Trương Thị Huỳnh Như
29 tháng 8 2015 lúc 9:51

122718       

Bình luận (0)
Nguyen Phuong Linh
20 tháng 2 2017 lúc 20:13

122718

Bình luận (0)
nguyen thi ngoc minh
14 tháng 3 2017 lúc 17:15

Lời  giải kiểu sao?

Bình luận (0)
do van hung
Xem chi tiết
Le Thuy Dung
Xem chi tiết
Ngô Tấn Đạt
12 tháng 6 2016 lúc 9:22

hình như 108 thì phải 

Bình luận (0)
nguyentrangha
Xem chi tiết
Vy Tuong
Xem chi tiết
Vy Tuong
4 tháng 6 2020 lúc 13:21

giup mik vs mik dg can gap

Bình luận (0)
Minh Lệ
4 tháng 6 2020 lúc 13:36

Câu 1:

Program HOC24;

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

min,max,i: integer;

begin

for i:=1 to 10 do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

min:=32000; max:=0;

for i:=1 to 10 do

begin

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

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

end;

writeln('So lon nhat la :',max);

write('So nho nhat la : ',min);

readln

end.

Bình luận (0)
Minh Lệ
4 tháng 6 2020 lúc 13:37

Câu 2:

Program HOC24;

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

t,i: integer;

begin

for i:=1 to 20 do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

t:=0;

for i:=1 to 20 do

if a[i] mod 2<>0 then t:=t+a[i];

writeln('Tong cac so le la :',t);

readln

end.

Bình luận (0)
anna pham
Xem chi tiết