Viết chương trình nhập vào 1 mảng M gồm N phần tử ( N nhập từ bàn phím) Hiển thị các phần tử của mảng M Hiển thị các phần tử của mảng M với mỗi dòng 10 số Tính và hiển thị tổng các số lẻ trong mảng M

tttuyen.thpt.pvd

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 23 xem

1 trả lời

Thích Trả lời

mitkun240301

program mangm;
uses crt;
var M:array[1..10000] of integer;
n,i,d:integer;
t:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
writeln('Nhap tung phan tu cua day: ');
for i:=1 to n do
begin
write('M[',i,']: '); readln(M[i]);
end;
write('Cac phan tu cua day la: ');
{in cac phan tu cung 1 hang}
for i:=1 to n do
write(M[i],' ');
writeln;
d:=0;
write('In cac 10 phan tu trong 1 hang: ');
for i:=1 to n do
begin
if d mod 10=0 then writeln;
write(M[i],' ');
inc(d);
end;
writeln;
t:=0;
for i:=1 to n do
if M[i] mod 2=1 then t:=t+M[i];
write('Tong cac so le cua day la: ',t);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

dothithuhangkhongyeucau2701

uses crt;
var m:array[1..1000000] of longint;
n,i,s,d:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap gia tri phan tu thu ',i,': '); readln(m[i]);
end;
write('- Cac phan tu cua mang: ');
for i:=1 to n do write(m[i],' '); writeln;
write('- 10 phan tu tren mot dong: ');
for i:=1 to n do
begin
if d mod 10=0 then writeln;
write(m[i],' ');
inc(d);
end;
writeln;
for i:=1 to n do if i mod 2=1 then inc(s,m[i]);
writeln('- Tong cac so le: ',s);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Câu 15 nội dung nào không phản ánh đúng tác dụng của chính sách ngụ binh ư nông A triều đình có lực lượng quân đội đông đảo trong khi sản xuất vẫn được duy trì B giảm bớt ngân quỹ quốc phòng cho nhà nước C tạo điều kiện để huy động sức mạnh của toàn dân trong chiến đấu và sản xuất D lực lượng quân đội được phiên chế tổ chức quy cũ hơn

hãy viết biểu thức toán học câu bằng cách tính hệ trong ngôn ngữ pascal Giúp mình với ạ

Một trường THCS tổ chức cho khoảng 600 đến 700 học sinh tham quan bằng ô tô . Tính số học sinh đi tham quan , biết rằng nếu xếp 42 hay 45 em vào một xe thì đều ko dư em nào ?

Viết một đoạn văn thuyết minh về tác hại và giải pháp việc sử dụng bao bì ni lông

Cần gấp vote 5 sao và ctlhn Giải bằng hệ phương trình bậc nhất 2 ẩn a) 5(x+2y)=3x-1 và 2x+4=3(x-5y)-12 b) 4x^2 - 5(y+1) = (2x-3)^2 và 3(7x+2) = 5(2y-1)-3 c) 2x+1/4 - y-2/3=1/12 và x+5/2=y+7/3 - 4 d) 3s-2t/5 + 5s-3t/3=s+1 và 2s-3t/3 + 4s-3t/2=t+1

Nêu vài nét vè thơ mới Không làm ẩu , quá ngắn , 60 điểm chứ không phải trò đùa

phân tích nhân vật lão hạc LƯU Ý:KHÔNG CHÉP MẠNG (mình cố tình cho nhiều điểm đấy)

Trình bày nguyên nhân thắng lợi, ý nghĩa lịch sử của 3 lần kháng chiến chống quân Mông - Nguyên ?

Giải bài số 5 giúp mình với mình cần gấp chiều nay thi rồi

cho tam giác abc vuông tại a, d là trung diểm của bc gọi m, n theo thứ tự là điểm đối xứng qua d của ab và ac, dm và dn theo thứ tự cắt ab, ac tại e, f 1, cm tứ giác aedf là hcn , tg adcn là hình thoi 2, cm M đx với n qua A

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến