Phần mềm học tập

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huy Dương

Cho mảng b gồm n phần tử được nhập từ bàn phím

a/Tính tổng các phân tử có số chẵn của dãy

b/Tính tổng các phân tử âm của dãy

c/Tìm phần tử lớn nhất và nhỏ nhất của dẫy

d/Tính tổng các phân tử chia hết cho 3 có

Nguyễn Lê Phước Thịnh
15 tháng 6 2020 lúc 13:08

uses crt;

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

n,i,t,t1,max,min,t2:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('B[',i,']='); readln(b[i]);

end;

t:=0;

for i:=1 to n do

if b[i] mod 2=0 then t:=t+b[i];

writeln('Tong cac so chan trong day la: ',t);

t1:=0;

for i:=1 to n do

if b[i]<0 then t1:=t1+b[i];

writeln('Tong cac so am trong day la: ',t1);

max:=b[1];

min:=b[1];

for i:=1 to n do

begin

if max<b[i] then max:=b[i];

if min>b[i] then min:=b[i];

end;

writeln('Phan tu lon nhat la: ',max);

writeln('Phan tu nho nhat la: ',min);

t2:=0;

for i:=1 to n do

if b[i] mod 3=0 then t2:=t2+b[i];

writeln('Tong cac phan tu chia het cho 3 la: ',t2);

readln;

end.


Các câu hỏi tương tự
Nguyễn Phúc
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Nhi Le
Xem chi tiết
sery Lan
Xem chi tiết
HOÀNG ĐẠI PHÚC
Xem chi tiết
ngọc uyển nhi đỗ
Xem chi tiết
sery Lan
Xem chi tiết
Finn
Xem chi tiết
Nguyệt Nguyễn
Xem chi tiết