Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên n. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình các số nguyên dương của dãy số nguyên...
Đọc tiếp
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên n. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình các số nguyên dương của dãy số nguyên đó.
uses crt;
var a:array[1..100] of integer;
begin
write('nhap do dai day');readln(n);
for i:=1 to n do begin writeln('a[',i,']');readln(a[i]);
if a[i] mod 2= 0 then write('so duong ', a[i],' ');end;
readln
end.