Tin học Viết chương trình nhập và xuất mảng một chiều

[buituankiet]

[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.

TIN HỌC 11:Viết chương trình nhập và xuất mảng 1 chiều gồm n phần tử với n được nhập từ bàn phím....?
1).In ra phần tử lớn nhất và pt nhỏ nhất của mảng
2) Sắp xếp theo chiều tăng dần, giảm dần của mảng
3) Tính tổng các số chia hết cho 3 hoặc 5
4) In ra màn hình các số không chia hết cho 6 và đếm xem có bao nhiêu phần tử không chia hết cho 6

 

[hoangha8394]

TIN HỌC 11:Viết chương trình nhập và xuất mảng 1 chiều gồm n phần tử với n được nhập từ bàn phím....?
1).In ra phần tử lớn nhất và pt nhỏ nhất của mảng
2) Sắp xếp theo chiều tăng dần, giảm dần của mảng
3) Tính tổng các số chia hết cho 3 hoặc 5
4) In ra màn hình các số không chia hết cho 6 và đếm xem có bao nhiêu phần tử không chia hết cho 6

Trước hết cho mình hỏi là mảng hai chiều một chiều hay 3 chiều nếu một chiều thì quá dễ, nếu 2 chiều thì sắp xếp theo thứ tự nào.Thui mình cứ viết cái version 1 chiều có j` bạn hỏi típ

Var

Begin
read(n);
max:=-maxlongint;min:=maxlongint;
for i:=1 to n do
begin
read(fi,a[i);s:=0;ds:=0;
if a>max then max:=a;
if a<min then min:=a;
if (a mod 3 =0)or(a mod 5 =0) then s:=s+a;
if a mod 6 <>0 then
begin
inc(ds);x[ds]:=a;
end;
end;
// sắp xếp nổi bọt
for i:=1 to n-1 do
for j:=i to n do
if a>a[j] then
begin
tg:=a;
a:=a[j];
a[j]:=tg;
end;
writeln(max);//in max a
writeln(min);//in min a
for i:=1 to n do write(a,#32);//viết các phần tử đã sắp xếp
writeln(s);//in tổng các số chia hết cho 3 hoặc 5
writeln(ds);//số các số ko chia hết cho 6
for i:=1 to ds do write(x,#32);//các phần tử ko chia hết cho 6
End.

 

[wind_naruto]

Cậu cho cái ct này vào máy kiểu j` cũng báo lỗi tùm lum:không có khai báo biến, đây là pascal bạn lại chú thích // như C ấy

 

[mumat95]

TIN HỌC 11:Viết chương trình nhập và xuất mảng 1 chiều gồm n phần tử với n được nhập từ bàn phím....?
1).In ra phần tử lớn nhất và pt nhỏ nhất của mảng
2) Sắp xếp theo chiều tăng dần, giảm dần của mảng
3) Tính tổng các số chia hết cho 3 hoặc 5
4) In ra màn hình các số không chia hết cho 6 và đếm xem có bao nhiêu phần tử không chia hết cho 6

bạn học lớp 11 à? mình cũng vậy
bạn học trường nài, tỉnh nào?
hết học kì 1 rùi mà mình vẫn ko hỉu gì về máy cái pascal đó

 

[wind_naruto]

Ờ! 50 chars....................................................................

 

[docgia123]

các bạn giúp mình giải bài tập này :
nhập vào một mảng 1 chiều sau đó đếm và in ra danh sách các phần tử là số nguyên tố , tính tổng nữa nhé

 

[pha_96]

Bài ni zể mà nếu động não một tí la ra:
Bài đây nè !
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Program So_nguyen_to;
uses crt;
var i,n,j:integer; m:real; s:longint;
a: array[1..100] of integer;
b: boolean;
begin
clrscr;
write('Nhap so luong cua cac so can nhap: '); readln(n);
writeln('Cac so nguyen to trong mang la: ');
for i:=1 to n do
begin
write(i,'. '); readln(a);
end;
write('Cac so nguyen to trong mang la: ');
S:=0;
for i:=1 to n do
begin
b:=false;
m:=sqrt(a);
j:=2;
while (a mod j<>0) and (j<=2) do
j:=j+1;
if (j>m) and(a>=2) then b:=true;
if b then begin write(a:2,','); S:=S+a; end;
end;
writeln;
writeln('Tong cua cac so nguyen to la: ',S);
readln;
end.
---------------------------------------------------------------------------------------------------------
Bạn có thấy dòng chữ "Cảm ơn" phía dưới không? Hãy click vào đó đi (^_^)!

 

[phamdanhp]

Nhập vào 1 dãy số sau đó tính tổng và tính trung bình cộng của dãy đó

 

[informatics]

Nhập vào 1 dãy số sau đó tính tổng và tính trung bình cộng của dãy đó

có thể làm theo kiểu mảng hoặc kiểu lặp thường
1 kiểu lặp thường(for)

USES crt;
VAR
e,r:REAL;
q,w:LONGINT;
BEGIN
clrscr;
write('nhap so cac so:');
readln(q);
FOR w:=1 TO q DO
BEGIN
write('so thu ',w,':');
readln(e);
r:=r+e;
END;
writeln('trung binh cac so nay la:', r/q:3);
readln;
END.


2 kiểu lặp while

USES crt;
VAR
q,w:LONGINT;
e,r:REAL;
BEGIN
clrscr;
write('nhap so cac so:');
readln(q);
w:=0;
WHILE w<q DO
BEGIN
w:=w+1;
write('nhap so thu ',w,':');
readln(e);
r:=r+e;
END;
writeln('trung binh cac so la ',r/q:3);
readln;
END.


cuối cùng là kiểu mảng
USES crt;
VAR
q,w:LONGINT;
e:ARRAY[1..10000] OF REAL;
tong:REAL;
BEGIN
clrscr;
write('nhap so cac so:');
readln(q);
FOR w:=1 TO q DO
BEGIN
write('nhap so thu ',w,':');
readln(e[w]);
END;
FOR w:=1 TO q DO tong:=tong+e[w];
writeln('trung binh cac so la:',tong/q:3:9);
readln;
END.

 

[outlandervn]

Thế này mà cậu ấy van khó!)!!!!!!!!!!!!!!!!!!!!!!!!!!!!!