viết chương trình nhập vào một dãy gồm n phần tử a) in ra màn hình số lớn nhất trong dãy b) in ra màn hình số nhỏ nhất trong dãy c) đếm xem trong dãy số đó có bao nhiêu số chẵn d) đếm xem trong dãy số đó cóbao nhiêu số lẻ

vpt812002

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 31 xem

1 trả lời

Thích Trả lời

nam123456789

Uses crt;

Var n,i,max,min,d,h:Integer;
a:array [1..100] of Integer ;
begin
readln(n);d:=0;h:=0;
For i:= 1 to n do
readln(a[i]);
max:=a[1];
min:=a[1];
for i :=1 to n do
begin
If a[i]>max then max := a[i];
If a[i]<min then min:= a[i];
If a[i] mod 2 = 0 then d:=d+1 else h:=h+1;
end;
writeln(max);
writeln(min);
writeln(d);
writeln(h);
end.

Vote (0) Phản hồi (0) 2 năm trước

chupi1

program ct

uses crt;

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

i,n,d1,d2,max,min:integer;

begin clrscr;

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

end;

max:=A[1]; min:A[1];

for i:=1 to n do

begin

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

if A[i]<min then min:=A[i];

if A[i] mod 2=0 then inc(d1);

if A[i] mod 2<>0 then inc(d2);

end;

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

writeln('So lon nho la: ',min);

writeln('Co ',d1,' so chan');

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

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Bạn an nâng một cái hộp nặng 4kg từ sàn nhà đặt lên kệ cao 3m thì công mà an phải thực hiện là bao nhiêu?

“Dân ta có một lòng nồng nàn yêu nước. Đó là một truyền thống quý báu của ta ... một dân tộc anh hùng a) Đoạn văn trên đc vt theo phương thức biểu đạt nào b) Câu ' Dân ta có một lòng nồng nàn yêu nước' là loại câu j c) Nội dung đoạn trích trên là j ???

Cho tam giác ABC cân tại A có AB = AC = 6cm; BC = 4cm. Các đường phân giác BD và CE cắt nhau tại I (E thuộc AB và D thuộc AC). 1) Tính độ dài AD? ED? 2) Chứng minh tam giác ADB đồng dạng tam giác AEC 3) Chứng ming IE.CD = = ID.BE 4) Cho S.ABC = 60 cm². Tính S.AED? Giúp mình câu 5 với Mình cần trong 10 phút Like vote đấy đủ

a) 4/3=? b) 1=5 2=10 3=15 4=20 5=?

Vẽ anime chibi hoặc chibi Nhường người vẽ đẹp

GIẢI THÍCH CÂU TỤC NGỮ : " MỘT CÂY LÀM CHẲNG NÊN NON BA CÂY CHỤM LẠI LÊN HÒN NÚI CAO " VIẾT DÀN Ý VÀ LÀM BÀI VĂN GIÚP MÌNH NHÉ

Một cửa hàng sau khi bán 2/3 số gạo thì còn lại 300 kg gạo.Hỏi lúc đầu cửa hàng có bao nhiêu kg gạo

các thành phần dinh dưỡng của thức ăn được biến đổi qua hoạt động tiêu hóa như thế nào

vẽ cho mình anime nha ngầu tí ok

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến