mảng 1 chiều tin học 11

[linhnguyen691999@yahoo.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

nhập vào một mảng số nguyên từ bàn phím tối đa 100 phần tử.
1) hiển thị mảng vừa nhập
2) tính tổng các p.tử chia hết cho 3 hoặc 5 đưa kq ra màng hình
3) tìm và đưa ra các số nguyên tố trong mảng.
4) suất mảng trên theo thứ tự giảm dần in mảng được sắp ra màng hình.

 

[sjeunhantb]

bài làm cụ thể

uses crt;
var n,i,tong:longint;
a:aray[1..100] of longint;
function snt(x:longint):boolean;
var j:longint;
begin
snt:=true;
if x<2 then snt:=false;
for j:=2 to x-1 do if x mod j = 0 then begin snt:=false;break;
end;
begin
write('nhap so phan tu ');readln(n);
for i:=1 to n do begin write('a[',i,']='); readln(a); end;
tong:=0;
writeln('cac phan tu trong mang la : ');
for i:=1 to n do
begin
writeln(a);
if (a mod 3 = 0) or (a mod 5 = 0) then tong:=tong+a;
end;
writeln(' tong cac so chia et cho 3 hoac 5 la ', tong);
write('cac so nguyen to la ');
for i:=1 to n do if snt(a)=true then write(a,' ');
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
ì a<a[j] then tam:=a;a:=a[j];a[j]:=tam;end;
writeln('sap xep theo thu tu giam dan ');
for i:=1 to n do write(a,' ');
readln;
end.