Question

NHẬP mảng A có N phần tử là số nguyên A)xuất A B)tính tổng giá trị mảng A C)tìm giá trị nhỏ nhất D)xuất giá trị mảng A theo thứ tự giảm dần Mọi người giúp em đi huhu

Answer 1

uses crt;

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

i,n,t,min,tam,j:integer;

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 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

min:=a[1];

for i:=1 to n do 

if min>a[i] then min:=a[i];

writeln(min);

for i:=1 to n-1 do 

  for j:=i+1 to n do

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Answer 2

//Thủ tục nhập mảng
void NhapMang(int A[], int n){
   for(int i = 0; i<n ; i++)
   {
      printf("Phan tu %d =",i);
      scanf("%d", &A[i]);
   }
}
// Thủ tục xuất mảng
void XuatMang(int A[], int n){
   printf("\n");
   for(int i = 0; i<n ; i++)
   {
      printf("%d\t",A[i]);
   }
}