Viết chương trình nhập vào mảng A n phần tử in ra mảng vừa nhập.
+ in ra các phần không chia hết cho 5. tính tổng phần tử, in ra giá trị tổng
+ tạo mảng B gồm các số không chia hết cho 5 từ mảng A. Tìm giá trị lớn nhất mảng B. Em cảm ơn ạ
Viết chương trình nhập vào mảng A n phần tử in ra mảng vừa nhập.
+ in ra các phần không chia hết cho 5. tính tổng phần tử, in ra giá trị tổng
+ tạo mảng B gồm các số không chia hết cho 5 từ mảng A. Tìm giá trị lớn nhất mảng B. Em cảm ơn ạ
program mangAchia5;
uses crt;
var A,B:array[1..10000] of integer;
n,i,max,t,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu n: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG A’);
d:=0; t:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘);
readln(A[i]);
if A[i] mod 5 <>0 then
begin
d:=d+1;
B[d]:=A[i];
t:=t+A[i];
end;
end;
if d=0 then write(‘Khong co’)
else
begin
writeln(‘Cac phan tu khong chia het cho 5 co trong day la: ‘);
max:=B[1];
for i:=1 to d do
begin
write(B[i],’ ‘);
if B[i]>max then ax:=B[i];
end;
writeln(‘Tong cua chung la: ‘,t);
writeln(‘Gia tri lon nhat la: ‘,max);
end;
readln
end.
var a,b:array[1..100]of integer;n:integer;
var i,max,s:integer;
begin
s:=0;
write(‘n= ‘);readln(n);
for i := 1 to n do
begin
readln(a[i]);
end;
for i := 1 to n do
begin
if a[i] mod 5 <> 0 then
begin
write(a[i],’ ‘ );
s:=s+a[i];
write(s);
end;
end;
for i := 1 to n do
begin
if a[i] mod 5 <> 0 then
begin
a[i] := b[i];
b[1] := max;
if b[1] < b[i] then max := b[i];
write(b[i]);
end;
end;
end.
@danhle