1

• phamphucthinh

1/

Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
for i:=1 to n do
s:=s+i;
Write('Tong day so tren la: ',s);
readln;

 2.

• nguyenthituongvy

uses crt;

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

n,i,t:longint;

begin

clrscr;

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

for i:=1 to n do

begin

write('a[',i,']: '); readln(a[i]);

end.

for i:=1 to n do t:=t+a[i];

writeln('tong cac gia tri trong day: ',t);

for i:=1 to n do

if a[i] mod 2<>0 then 

begin

write(a[i]);

break;

end;

readln

end.

Ctr đã test nha bạn.

1

program ct;

uses crt;

var S,i,n:integer;

begin

clrscr;

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

   S:=0;

     for i:=1 to n do S:=S+i;

   writeln('tong cu n so tu nhien la:',S);

readln

end.

2. 

program ct;

uses crt;

var i,n:integer; tbc:real;

A:array[1..100] of integer;

begin

clrscr;

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

    for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  tbc:=0;

   for i:=1 to n do

     if A[i] mod 2=0 then tbc:=(tbc+A[i])/n;

   writeln('trung binh cong la:',tbc);

readln

end.