Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Sarah Lilia
Cho N và dãy số nguyên dương a1,a2,…,an. Hãy lập chương trình : a/ Nhập và in dãy số nguyên dương a1,a2,…,an ra màn hình. b/ Đếm xem trong dãy số đó có bao nhiêu số >10 c/ Đếm xem trong dãy có bao nhiêu số chẵn , bao nhiêu số lẻ d/ Tính tổng các số ở vị trí chẵn có giá trị lẻ và tích các số ở vị trí lẻ có giá trị chẵn của dãy e/ In ra màn hình các số lẻ f/ In ra màn hình các số chẵn và lớn hơn 10
Nguyễn Lê Phước Thịnh
17 tháng 2 2021 lúc 20:53

uses crt;

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

i,n,dem,dem1,dem2,t:integer;

s:real;

begin

clrscr;

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

for i:=1 to n do 

begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

  if a[i]>10 then inc(dem);

writeln('So phan tu lon hon 10 la: ',dem);

dem1:=0;

dem2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

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

writeln('So luong so le la: ',dem2);

t:=0;

s:=1;

for i:=1 to n do 

  begin

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

if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];

end;

writeln('Tong cac so o vi tri chan co gia tri le la: ',t);

writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);

writeln('Cac so le la: ');

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

writeln;

writeln('Cac so chan va lon hon 10 la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>10) then write(a[i]:4);

readln;

end.


Các câu hỏi tương tự
Phong Vũ
Xem chi tiết
Lê Phương Thảo
Xem chi tiết
Nhảy chân sáo mà từ từ đ...
Xem chi tiết
Huỳnh Mai Anh Thư
Xem chi tiết
Trương Thi Minh Thiết
Xem chi tiết
Trần Cương
Xem chi tiết
Hải Phong
Xem chi tiết
Duong Ngoc Khue
Xem chi tiết
Vương Tuấn Đạt
Xem chi tiết