Bài 4: Một số kiểu dữ liệu chuẩn

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Chí Thành

1. Đếm số phần tử không chia hết cho 3 trong mảng nguyên A ( A <= 100)

2. Tính tổng các phần tử không âm trong mảng nguyên A ( với A <= 250 , A{i}<= 500)

Nguyễn Lê Phước Thịnh
15 tháng 5 2020 lúc 21:38

Bài 1:

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

if a[i] mod 3<>0 then inc(dem);

writeln('So phan tu khong chia het cho 3 trong day la: ',dem);

readln;

end.

Bài 2:

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

if a[i]>=0 then t:=t+a[i];

writeln('Tong cac phan tu khong am trong day la: ',t);

readln;

end.


Các câu hỏi tương tự
Duy Nguyễn
Xem chi tiết
Nguyên Thảo
Xem chi tiết
Minh Uzumaki
Xem chi tiết
Gia duy Tran
Xem chi tiết
Nhi Yến
Xem chi tiết