Viết công thức nhập vào mảng A gồm n số nguyên
( A<=100)
a, tính tổng các phần tử của mảng
b, đếm xem có bao nhiêu phần tử chia hết cho 5
c, sắp xếp mảng dưới dạng tăng dần
d, hiện các kết quả ra màn hình
Gấp giúp minh nhanh với . Sắp ktra rồi
Viết công thức nhập vào mảng A gồm n số nguyên
( A<=100)
a, tính tổng các phần tử của mảng
b, đếm xem có bao nhiêu phần tử chia hết cho 5
c, sắp xếp mảng dưới dạng tăng dần
d, hiện các kết quả ra màn hình
Gấp giúp minh nhanh với . Sắp ktra rồi
Xin hay nhất ạ
#Chương trình ngắn
#No copy
uses crt;
var i,n,j,t5,t:longint; a:array[1..10000000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
t:=t+a[i];
if a[i] mod 5=0 then inc(t5);
for j:=1 to i-1 do if a[i]<a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
writeln(‘Tong cac phan tu cua mang: ‘,t);
writeln(‘Co ‘,t5,’ phan tu chia het cho 5′);
writeln(‘Mang duoi dang tang dan: ‘);
for i:=1 to n do write(a[i],’ ‘);
readln
end.
program mangnha;
uses crt;
var A:array[1..100] of integer;
n,i,t,j,tg,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘);
readln(n);
write(‘Nhap tung phan tu cua mang A:’);
for i:=1 to n do
begin
write(‘Nhap A[‘,i,’]: ‘);
readln(A[i]);
end;
t:=0;
for i:=1 to n do
t:=t+A[i];
d:=0;
for i:=1 to n do
if A[i] mod 5=0 then inc(d);
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tg:=A[i];
A[i]:=A[j];
A[j]:=tg;
end;
writeln(‘Tong cac phan tu cua mang la: ‘,t);
writeln(‘Co ‘,d,’ phan tu cua mang chia het cho 5′);
write(‘Day sau khi sap xep tang dan la: ‘);
for i:=1 to n do
write(A[i],’ ‘);
readln
end.