Nhập vào 1 mảng số nguyên gồm n phần tử. In ra màn hình các phần tử chẵn chia hết cho 4.
2 câu trả lời
program ct;
uses crt;
var i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap n:=');readln(n);
for i:=1 to n do
begin
write('nhap mang A[',i,']:=');readln(A[i]);
end;
for i:=1 to n do
if (A[i] mod 2=0) and (A[i] mod 4=0) then writeln(A[i]);
readln
end.
program Bai;
var a:array [1..100] of integer;
n, i: integer;
begin
write('Nhap so phan tu co trong mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu A[',i,']: '); readln(A[i]);
end;
for i:=1 to n do if a[i] mod 4 = 0 then writeln(a[i]);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
