Có Bài pascal nhờ pro giúp đỡ !

**p1c4ss0** · 01-18-2010, 08:01 PM

Lập chương trình nhập vào 1 mảng số nguyên có n phần tử ( với n được nhập vào từ bàn phím ).
- In ra mảng vừa nhập.
- Tìm giá trị min , max có trong mảng.
- Tinh tổng các phần tử chẵn có trong mảng.
- Sắp xếp mảng theo thứ tự giảm dần.

View more random threads:

.

**tranduchuytt2** · 02-08-2010, 06:06 AM

uses crt;
const max=100;
var a:array[1..max] of integer;
i,tongchan,mina,maxa,n:integer;
begin
clrscr;
write('nhap so phan tu mang n= ');
readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']= ');
readln(a[i]);
writeln;
end;
write('cac phan tu trong mang la: ');
maxa:=a[1]; mina:=a[1]; tongchan:=0;
for i:=1 to n do
begin
write(a[i]);
if a[i]>maxa then maxa:=a[i];
if a[i]<mina than mina:=a[i];
if a[i] mod 2 =0 then tongchan:=tongchan+a[i];
end;
writeln('so lon nhat la ',maxa);
writeln('so nho nhat la ',mina);
writeln('tong cac phan tu chan la ',tongchan);
readln;
end. .