Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Lê

Bt1: viết chương trình nhập vào 1 dãy số nguyên có N phần tử(N<=150). Đếm xem có bao nhiêu phần tử là bội của 3 và 5. Tính tổng các phần tử đó.

Bt2: viết chương trình nhập vào 1 dãy số nguyên có N phần tử (N<=150) và một số nguyên K tùy ý. Đếm xem có bao nhiêu phần tử bằng với K. In ra chỉ số các phần tử đó.

Giúp mik 2 bài này trong tối nay vs ạ Tks.

 

Minh Lệ
19 tháng 2 2023 lúc 20:34

Bài 1:

Program HOC24;

var i,n,d : byte;

t: integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Co ',d,' phan tu la boi cua 3 va 5');

write('Tong la: ',t);

readln

end.

Minh Lệ
19 tháng 2 2023 lúc 20:38

Bài 2:

Program HOC24;

var i,n,k : byte;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('Nhap phan tu thu ',i,' : '); readln(a[i]);

end;

write('Nhap k: '); readln(k);

for i:=1 to n do if a[i]=k then d:=d+1;

writeln('Co ',d,' phan tu bang ',k);

Write('Cac chi so do la: ');

for i:=1 to n do if a[i]=k then write(i,' ');

readln

end.

Nguyễn Lê
12 tháng 4 2023 lúc 19:13

loading...  loading...  giúp em 4 bài này vs ạ 


Các câu hỏi tương tự
Anh Thư
Xem chi tiết
Anh Thư
Xem chi tiết
Dương Thành Long
Xem chi tiết
Thảo Nguyên Ngô
Xem chi tiết
Trần Cương
Xem chi tiết
fyujg
Xem chi tiết
Thanh sang
Xem chi tiết
uyen hihi
Xem chi tiết
Lê Bảo Lâm
Xem chi tiết