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

viết chương trình nhập vào A có n phần tử a,xuất và in ra màn hình b,Đếm xem mảng vừa nhập có bao nhiêu số lẻ c,Tìm số lớn nhất trong mảng vừa nhập và đưa ra màn hình

Kiều Vũ Linh
28 tháng 4 2023 lúc 16:06

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

i,n,d,max:integer;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

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

end;

max:=a[1];

for i:=2 to n do

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

writeln('Co ',d,' so le');

write('So lon nhat la ',max);

readln

end.


Các câu hỏi tương tự
Kien
Xem chi tiết
Phạm Gia Bình
Xem chi tiết
Bảo Lê Nguyễn Vũ
Xem chi tiết
Nguyễn Tiến Dũng
Xem chi tiết
Lê Tuyết Dình
Xem chi tiết
ksie
Xem chi tiết
Nguyễn trọng
Xem chi tiết
khai khai
Xem chi tiết
Đại Hà
Xem chi tiết