Viết chương trình thực hiện yêu cầu sau: cho một dãy gồm N số nguyên dương(N<=50). Thực hiện các yêu cầu sau a.Nhập dãy số, với số lượng nhập vào từ bàn phím b.Hiển thị dãy số theo hàng ngang c. Tính tổng các phần tử của dãy d. Tìm phần tử lớn nhất của dãy số e. Đếm xem có bao n

huy1610ace

2 năm trước

Viết chương trình thực hiện yêu cầu sau: cho một dãy gồm N số nguyên dương(N<=50). Thực hiện các yêu cầu sau a.Nhập dãy số, với số lượng nhập vào từ bàn phím b.Hiển thị dãy số theo hàng ngang c. Tính tổng các phần tử của dãy d. Tìm phần tử lớn nhất của dãy số e. Đếm xem có bao nhiêu số chẵn trong dãy số làm câu nào cũng đc hết á giúp

Loga Sinh Học lớp 12

0 lượt thích 38 xem

1 trả lời

Thích Trả lời

yeuemmot_duc89

program ct;

uses crt;

var A:array[1..50] of integer;

i,N,max,dem:integer;

S:longint;

begin clrscr;

write('Nhap so phan tu N: '); readln(N);

for i:=1 to N do

begin

writeln('Nhap phan tu thu ',i,': ');readln(A[i]);

end;

writeln('Hien thi day so theo hang ngang: ');

for i:=1 to N do

write(A[i]);

S:=0; max:=A[1];

for i:=1 to N do

begin

S:=S+A[i];

if A[i] >max then max:=i;

end;

writeln('Tong cac phan tu cua day la: ',S);

writeln('Phan tu lon nhat la: A[',i,']');

dem:=0;

for i:=1 to N do

if A[i] mod 2=0 then dem:=dem+1;

writeln('So phan tu chan trong day la: ',dem);

readln;

end.

Học tốt!

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

binhech2001

program ct;

uses crt;

var i,n,Max,s,d:integer;

A:array[1..50] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,'];=');readln(A[i]);

end;

writeln('hien thi day so theo ngay nang');

for i:=1 to n do

write(A[i]:4);

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('tong cac phan tu trong day la:',s);

Max:=A[1];

for i:=2 to n do

if Max<A[i] then Max:=A[i];

writeln('phan tu lon nhat trong day la:',Max);

d:=0;

for i:=1 to n do

if A[i] mod 2=0 then d:=d+1;

writeln('so chan trong day la:',d);

readln

end.

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

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

Giúp mik từ câu 1 đến câu 27 nha:3

Đáp án lớp 8 trường THCS ái mộ

1 cuốn sách có 360 trang bạn An đọc trong 3 ngày. Ngày thứ nhất bạn đọc được 1/3 cuốn sách. Ngày thứ 2 bạn An đọc được 25% cuốn sách(5/4 trong số trang của ngày thứ nhất 5/8 trong số sách còn lại). Tính số trang sách bạn An đọc trong ngày thứ ba giải hộ mik bài này nha chiều nay mik nộp r

Lom khom dưới núi tiều vai chú .lác đấc bên sông chợ mấy nhà. Tác dụng câu trần thuật là gì.

sắp xếp theo thứ tự tăng dần : -5/4 ; 0/8 ;-6/8 ; -5/-8

Câu 3 cho đề bài sau :" Đến với tục ngữ ta tìm thấy những kinh nghiệm vô cùng quý báu về thời tiết về lao động sản xuất về con người và xã hội' Bằng sự hiểu biết em hãy chứng minh nhận định trên Em hãy xác định đề bài trên có mấy luận điểm cần làm sáng tỏ ở phần thân bài ? Chỉ ra luận điểm cụ thể đó Câu 4 triển khai câu 3 thành bài văn nghị luận chứng minh hoàn chỉnh

Cho hình chóp SABC có cạnh SA vuông góc với ABC . Đáy ABC là tam giác cân ở C gọi HK lần lượt là trung điểm của AB và SB. Khẳng định nào sau đây là sai A: CH vuông góc AK B: CH vuông SB C: CH vuông SA D: AK vuông SB

Vì sao pháp xâm lược Đông Dương

xây dựng một thực đơn cho 1 bữa ăn trưa va tối cho mùa hè hoặc mùa đông

Giúp mik câu 4,5 đc ko ,chiều mik kt r ,giúp mik với gâpppppppppp

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