Viết chương trình nhập vào một mảng 1 chiều có 7 phần tử. Viết các chương trình?

Viết chương trình nhập vào một mảng 1 chiều có 7 phần tử. Viết các chương trình
con.
a) In ra mảng gồm 7 phần tử trên theo chiều ngang.
b) Tính tổng các phần tử chẵn.
c) Điếm số lượng các phần tử chia hết cho 5.

giúp em với nhé.

Khách viếng thăm

Code:: program mang;
uses crt;
var a:array[1..7] of integer;
i, j, tong: integer;
begin
clrscr;
writeln('nhap vao mang:');
for i:=1 to 7 do
begin
writeln('nhap vao phan tu thu ',i,':');
readln(a[i]);
end;
tong:=0;
j:=0;
for i:= 1 to 7 do
begin
if a[i] mod 2 = 0 then
tong:=tong + a[i];
if a[i] mod 5 = 0 then
j:=J + 1;
end;
writeln('in mang:');
for i := 1 to 7 do
write(a[i]);
writeln;
writeln('tong cac phan tu chan = ', tong ,' so luong cac phan tu chia het cho 5 =',j);
readln;
end.

em test thử nhé. A Làm mà chưa test thử tại không có pascal.

ai cho ý kiến về bài này hộ em với. Đúng chưa nhỉ? em đang cần.hj`.

viết chương trình con co mà, bạn Đức Minh đọc kỹ rồi sửa lại giùm em nó đi.

Khách viếng thăm

Fire_Stork đã viết:: viết chương trình con co mà, bạn Đức Minh đọc kỹ rồi sửa lại giùm em nó đi.

Oài đây là forum của lớp chuyên tin mà. Mọi người làm hộ cái đi, sao toàn thấy mình trả lời thế này? hjx, ai viết lại cái này hộ cái nhé, mình đi học cái đã. Chắc tạm thời nghỉ online 1 thời gian để ôn thi tốt nghiệp.

hjx forum của lớp chuyên tin mà sao yếu tin thế nhỉ? đặt câu hỏi mà mãi chẳng có ai giúp em gì cả thế này? Ai giúp em làm mấy bài này với đi. Huhuhuhuhu

Code:: program mang;
uses crt;
var a:array[1..7] of integer;
i, j, tong: integer;
begin
clrscr;
writeln('nhap vao mang:');
for i:=1 to 7 do
begin
writeln('nhap vao phan tu thu ',i,':');
readln(a[i]);
end;
tong:=0;
j:=0;
for i:= 1 to 7 do
begin
if a[i] mod 2 = 0 then
tong:=tong + a[i];
if a[i] mod 5 = 0 then
j:=J + 1;
end;
writeln('in mang:');
for i := 1 to 7 do
write(a[i],' ');
writeln;
writeln('tong cac phan tu chan = ', tong ,' so luong cac phan tu chia het cho 5 =',j);
readln;
end.

Đấy đúng rồi đó! chỉ sai mỗi phần in mảng thôi là thiếu dấu cách giữa các phần tử hihi nhưng chả sửa được nên làm ct mới phải thank tui nha Viết chương trình nhập vào một mảng 1 chiều có 7 phần tử. Viết các chương trình? 111718

Viết chương trình nhập vào một mảng 1 chiều có 7 phần tử. Viết các chương trình? 111718

Khách viếng thăm

AnhCoYeuEm đã viết:: Viết chương trình nhập vào một mảng 1 chiều có 7 phần tử. Viết các chương trình con.
a) In ra mảng gồm 7 phần tử trên theo chiều ngang.
b) Tính tổng các phần tử chẵn.
c) Điếm số lượng các phần tử chia hết cho 5.

giúp em với nhé.

Làm lại đi Sun, chương trình con mà, làm hộ cái nhé dạo này không có thời gian làm nên không làm được. Chỉ dạo qua forum 1 lát rồi phải đi học.

Code:: write(a[i],' ');

thế này là không được rồi. Viết:

Code:: write(a[i]:6);

cho dễ, có mà sao không dùng nhỉ?

Sun đã viết:: Đấy đúng rồi đó! chỉ sai mỗi phần in mảng thôi là thiếu dấu cách giữa các phần tử hihi nhưng chả sửa được nên làm ct mới phải thank tui nha

không được sửa code, bài viết của người khác. Khi sửa phải giữ nguyên bài của họ chỉ thêm cảnh cáo hoặc thêm 1 số thẻ code,... chứ không được sửa bài của người ta.

Mãi mà không có ai làm cái bài này Sad

săp phải nộp bài rồi Viết chương trình nhập vào một mảng 1 chiều có 7 phần tử. Viết các chương trình? 77420

thằng Fire_stock làm đi,giỏi Tin lắm mà có j anh cho làm mod kaka

Khách viếng thăm

sun đã viết:: thằng Fire_stock làm đi,giỏi Tin lắm mà có j anh cho làm mod kaka

chẳng ai chịu làm hộ em nó à? Làm đi có gì em nó cho tán Viết chương trình nhập vào một mảng 1 chiều có 7 phần tử. Viết các chương trình? 234934

).

Khách viếng thăm

Bài của Fire_Stork bị xoá khỏi chủ đề vì lý do nói tục.

thank

cuối cùg vẫn k ai chịu trả lời em í Wink

)

Khách viếng thăm

không biết đến khi nào em phải nộp bài nhỉ? Sao không ai chịu làm hộ thế? Oài lớp chuyên tin mà chẳng chịu làm tin gì cả. Bài này dễ với những ngưòi học chuyên còn khó với những người không biết và không chuyên chứ. Ai viết hộ em ý đi, mình không có nhiều thời gian nữa. Mà để về làm thử xem sao. Sad

Học dốt mà.

» hãy làm 1 chuơng trình theo mẫu, post code và project.
» Giúp mình viết 1 bài sắp xếp mảng.
» mảng trong pascal.
» mình muốn nói là bài viết này là bài thử để tìm cái thùng rác.