Nhập N và dãy A1,A2....AN đưa ra vị trí của các số chẵn trong dãy Làm giúp m với cái này còn có cả viết thuật toán và vẽ các hình nữa)
1 câu trả lời
program Min;
uses crt;
var i,n:integer;
A:array[1..200] of integer;
begin
clrscr;
writeln('Nhap n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap so thu ',i,': '); readln(A[i]);
end;
writeln('Vi tri cua cac so chan trong day la: ');
for i:=1 to n do
if (A[i] mod 2 = 0) then write(i:6);
writeln;
readln
end.
Em kiểm tra lại chương trình nha :D
Câu hỏi trong lớp
Xem thêm
