Bài 1: Viết chương trình nhập vào mảng 1 chiều không quá 1000 phân tử là các số nguyên
a, In ngược mảng vừa nhập
b, In ra màn hình các số chia hết cho 2 và chia hết cho 5
c, Tính tổng các phần tử lẻ có chỉ số chẵn
Bài 1: Viết chương trình nhập vào mảng 1 chiều không quá 1000 phân tử là các số nguyên a, In ngược mảng vừa nhập b, In ra màn hình các số chia hết cho
By Arya
uses crt;
var n,i,tong:integer;
a:array[1..1000] of integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]:’);
readln(a[i]);
end;
write(‘IN RA:’);
for i:=1 to n do write(a[i],’ ‘);
writeln;
write(‘Cac so chia het cho 2 va chia het cho 5:’);
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 5=0) then
write(a[i]);
writeln;
tong:=0;
for i:=1 to n do
if (a[i] mod 2=1) and (i mod 2=0) then
tong:=tong+a[i];
write(‘Tong cac phan tu le co chi so chan:’,tong);
readln
END.
Chúc bạn học tốt!
uses crt;
var a: array[1..100] of integer;
n,i,s: integer;
begin
clrscr;
write (‘nhap so phan tu: ‘); readln (n);
for i:=1 to do
begin
write (‘nhap a[‘,i,’]: ‘); readln (a[i]);
if (i mod 2=0) and (a[i] mod 2<>0) then s:=s+a[i];
end;
write (‘mang nguoc la: ‘);
for i:=n downto 1 do write (a[i],’ ‘);
writeln;
write (‘cac so chia het cho 2 va 5 la: ‘);
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 5=0) then write (a[i],’ ‘);
writeln (‘tong cac phan tu le co chi so chan: ‘,s);
readln;
end.