uses crt;

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

n,i,k,t,t1:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

xác định bài toán:

input: nhập n;

output: tổng các số lẽ từ 1 đến n;

mô tả thuật toán:

B1: nhập n;

B2: s<--0; i<--1;

B3: nếu( i mod 2<>1 )thì s<--s+i;

B4: i<--i+1;

B5: quay lại B3;

B6: nếu i=n thì xuất s;

viết chương trình:

program ntn;

uses crt;

var n,i,s:longint;

begin

clrscr;

write('nhap n:');readln(n);

s:=0;

for i:=1 to n do if( i mod 2<>1)then s:=s+i;

write('tong cac so le tu 1 den n la:',s);

readln;

end.