Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
tạ thị thanh thảo

viết chương trình nhập dãy n số nguyên từ bàn phím. đưa dãy vừa nhập ra màn hình. tìm giá trị chẵn nhỏ nhất và giá trị lẻ lớn nhất.đưa kết quả tìm được ra màn hình

Trâm Nguyễn Thị Ngọc
15 tháng 2 2019 lúc 22:28

Var

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

i,n,max,max1:integer;

Begin

readln(n);

For i:=1 to n do

begin

readln(a[i]);

write(a[i]);

end;

writeln;

max:=0;max1:=0;

For i:=1 to n do

if a[i] mod 2=0 then If a[i]>max then max:=a[i];

esle if a[i]>max1 then max1:=a[i];

writeln('so chan lon nhat la:',max);

write('so le lon nhat trong day la:',max1);

readln

end.


Các câu hỏi tương tự
Tuoi tom May
Xem chi tiết
Uchiha Obito
Xem chi tiết
Huy Hoang Nguyen
Xem chi tiết
Trần Hà Thư
Xem chi tiết
vy tường
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Thư ĐT
Xem chi tiết
Huỳnh Trúc Ly
Xem chi tiết
Trần Minh Trí
Xem chi tiết
Huyền Trần
Xem chi tiết