Nguyễn Minh Khang's Profile

uses crt;

var i,n,max,tong:integer;

      A:array[1..100] of integer

begin

clrscr;

write('Nhap so phan tu n: '); readln(n);

for i:=1 to n do begin

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

end; 

writeln('Mang da nhap la:');

for i:=1 to n do writeln('A[',i,']=',A[i]);

max:=0;

tong

for i:=1 to n do if max<A[i] then max:=A[i];

for i:=1 to n do tong:=tong+A[i];

writeln('So lon nhat la: ',max);

writeln('Tong gia tri mang A la: ', tong);

readln

end.

Chương trình nhập số nguyên từ bàn phím rồi tính tổng các số dương rồi xuất ra màn hình:

uses crt;

var i,n,duong:integer;

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

begin

clrscr;

write('Nhap so phan tu n: '); readln(n);

for i:=1 to n do begin

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

end;

duong:=0;

writeln('Cac so duong la: ');

for i:=1 to n do begin if A[i]>0 then duong:=duong+A[i]; write(A[i],' '); end;

write('Tong cac so duong la: ',duong);

readln

end.

Chương trình nhập dãy số gồm n phần tử nguyên từ bàn phím:

program nhap;

uses crt;

var i,n:integer

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

begin

clrscr;

write('Nhap so phan tu n: '); readln(n);

for i:=1 to n do begin

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

end;

readln

end.