Question

1 Viết chương trình nhập mảng A gồm n phần tử nguyên. Cho biết mảng A có phải là mảng toàn phần tử chẵn ko?

2.viết chương trình nhập mảng A gồm n phần tử nguyên. Tìm các mảng phần tử duy nhất có trong mảng

Cảm ơn ạ!!

Answer 1

Bài 1:

uses crt;

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

n,i,kt:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

kt:=0;

for i:=1 to n do

if a[i] mod 2<>0 then kt:=1;

if kt=0 then writeln('Thoa man')

else writeln('Khong thoa man');

readln;

end.