Question

[Nguyễn Linh]

Giúp mìk với

1Cho một dãy số nguyên N (1<=N<=50) và N số nguyên A1,A2,...An . Hãy viết phương trình.

a) Nhập từ bàn phím số nguyên N và dãy A1,A2,...An

b) Tình tổng các số chẵn có trong dãy A1,A2,..An

2 Cho dãy số nguyên N (1<=N<=50)và N số nguyên A1,A2,..An. hãy viết phương trình.

a) Nhập từ bàn phím số nguyên N và dãy A1,A2,..An

b) Hãy chỉ ra phần tử có giá trị là x( x được nhập từ bàn phím) có trong dãy

Answer 1

[Nguyễn Lê Phước Thịnh]

Bài 1:

uses crt;
var a:array[1..50]of integer;
n,t,i:integer;
begin
clrscr;
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('vui long nhap lai')
else begin
{---------------------------cau-a-----------------------------}
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------cau-b-----------------------------}
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln('tong cac so chan trong day la: ',t);
end;
readln;
end.

Bài 2:

uses crt;
var a:array[1..50]of integer;
n,i,x:integer;
begin
clrscr;
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('vui long nhap lai')
else begin
{---------------------------cau-a-----------------------------}
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------cau-b-----------------------------}
write('nhap x='); readln(x);
writeln('cac phan tu co gia tri bang ',x,' trong day la: ');
for i:=1 to n do
if a[i]=x then write(a[i]:4);
end;
readln;
end.