Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Thị Thèo Lèo

VCT (Pascal) nhập vào mảng B gồm 5 phần tử là số nguyên. In ra mảng vừa nhập. Tính và in ra số lượng số chẵn. Nhập vào K. Tìm vị trí K trong mảng. Sxếp mảng tăng dần.  

Nguyễn Lê Phước Thịnh
3 tháng 3 2022 lúc 12:51

uses crt;

var b:array[1..5]of integer;

i,n,dem,k,tam,j:integer;

kt:boolean;

begin

clrscr;

n:=5;

for i:=1 to n do readln(b[i]);

for i:=1 to n do write(b[i]:4);

writeln;

dem:=0;

for i:=1 to n do if b[i] mod 2=0 then dem:=dem+1;

writeln('So luong so chan la: ',dem);

readln(k);

kt:=false;

for i:=1 to n do 

if b[i]=k then

begin

write(i:4);

kt:=true;

end;

if (kt==false) then writeln('Khong co k trong day')

else writeln;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if b[i]>b[j] then 

begin

tam:=b[i];

b[i]:=b[j];

b[j]:=tam;

end;

for i:=1 to n do write(b[i]:4);

readln;

end.


Các câu hỏi tương tự
Trần Thị Thèo Lèo
Xem chi tiết
Không tên
Xem chi tiết
Benny
Xem chi tiết
Nguyen hung
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết