a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tổng các phần tử có giá trị là số nguyên,dương
b) viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị là số chẵn
a) viết chương trình nhập vào mảng số nguyên gồm n phần tử sau đó in ra màn hình tổng các phần tử có giá trị là số nguyên,dương
b) viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị là số chẵn
a)
program Y_a;
uses crt;
var A:array [1..500] of integer;
n,i,T: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if A[i]>0 then T:=T+A[i];
end;
write(‘T = ‘,T);
readln
End.
b)
program Y_b;
uses crt;
var A:array [1..10] of integer;
i: integer;
Begin
clrscr;
for i:=1 to 5 do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
end;
write(‘Cac phan tu co gia tri chan: ‘);
for i:=1 to 5 do
if A[i] mod 2=0 then write(A[i],’ ‘);
readln
End.
ý a:
uses crt;
var s,n,i: longint;
a: array[1..100] of integer;
begin
clrscr;
s:=0;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do begin
write(‘a[‘,i,’]=’); readln(a[i]); end;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
writeln(‘Tong cac so nguyen duong trong mang la: ‘,s);
readln;
end.
ý b:
uses crt;
var s,i: longint;
a: array[1..100] of integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do begin { vì mảng chỉ có 5 phần tử nên chỉ cần ‘to 5’ }
write(‘a[‘,i,’]=’); readln(a[i]); end;
write(‘Cac phan tu chan la: ‘);
for i:=1 to 5 do
if a[i] mod 2 = 0 then write(a[i],’ ‘);
readln;
end.