giúp mình với huhuh viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím rồi - đếm các số lẻ/ chẵn của dãy số - tìm giá trị lớn nhất nhỏ nhất tính tổng số lẽ , số chẵn tính tổng các phần tử của dãy số

Quockhanha4

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 34 xem

1 trả lời

Thích Trả lời

nguyenvantoan

var A: array [1..100] of integer;
n: integer;
i: integer;
tongsochan,tongsole,tong,max,min,sole,sochan: integer;
begin
write('Nhap so luong phan tu: ');
readln(n);
for i:=1 to n do
begin
write('Nhap gia tri cho phan tu thu ',i,': ');
readln(A[i]);
end;
for i:=1 to n do
begin
if (a[i] mod 2 = 0) then
begin
sochan:=sochan+1;
tongsochan:=tongsochan+A[i];
end
else
begin
sole:=sole+1;
tongsole:=tongsole+A[i];
end;
if max<A[i] then max:=A[i];
if min>A[i] then min:=A[i];
tong:=tong+A[i];
end;
writeln('Ket qua: ');
writeln('So luong so chan: ',sochan);
writeln('So luong so le: ',sole);
writeln('Gia tri lon nhat: ',max);
writeln('Gia tri nho nhat: ',min);
writeln('Tong cac gia tri la so chan: ',tongsochan);
writeln('Tong cac gia tri la so le: ',tongsole);
writeln('Tong tat ca cac phan tu: ',tong);

readln
end.

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

anhthu23102001

program ct;

uses crt;

var i,n,S,d1,d2,tongchan,tongle,Max,Min:integer;

A:array[1..100] 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;

d1:=0; d2:=0; Max:=A[1]; Min:=A[1]; tongchan:=0; tongle:=0; S:=0;

for i:=1 to n do

begin

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

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

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

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

if A[i] mod 2=0 then tongchan:=tongchan+A[i] else tongle:=tongle+A[i];

S:=S+A[i];

end;

write('KET QUA');

writeln('co',d1,' la so chan');

writeln('co',d2,' la sole');

writeln('gia tri lon nhat la:',Max);

writeln('gia tri nho nhat la:',Min);

writeln('tong so chan la:',tongchan);

writeln('tong so le la:',tongle);

writeln('tong la:',S);

readln

end.

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

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

Hãy xác định trong các câu sau: Thành phần nào của câu có thể mở rộng thành 1 cụm CV a) đám người không sợ chết đã cứu quãng đê b) chiếc xe máy đã hỏng c) cả lớp tin là bạn an nói thật

Thuyết minh về diễn viên -Tiêu Chiến hay Vương Nhất Bác cũng được - Giúp với ạ~

giúp mình với;câu trả lời nhanh và chuẩn tặng 40 điệm + tim+5*`+...... đầy đủ vào tình hình văn hóa giáo dục nước ta thế kỉ XIX?tình hình văn hóa giáo dục nước ta cuối thế kỷ XVII đầu thế kỉ XIX so với thời kỳ trước như thế nào?

cho (o) đưòng kính MN trên tia đối của tia MN lấy A.từ A kẻ đưòng thẳng D vuông góc với AN. kẻ tiếp tuyến AB với O a)chứng minh tứ giác AMBE nội tiếp b)cm góc ABM=góc ACN c)cm AC là tiếp tuyến (O)

vì sao sự hình thành nước tiểu diễn ra liên tục mà sự bài tiết nước tiểu lại gián đoạn

Trình bày đặc điểm dân cư , xã hội Châu Âu

giup voiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

Làm cho mình 2 bài tự luyên này nha !

Hoà tan 8gam hỗn hợp mg và fe trong 200gam dung dịch H2so4 vừa đủ thu được 4.48l khí (đktc) và dung dịch Y a) tính khối lượng mỗi kim loại trong hỗn hợp đầu b ) tính C% của dung dịch Y

cho tam giác ABC vuông tại A ( AB < AC ), có đường cao AD a) Chứng minh tam giác DAB đồng dạng với tam giác ACB b) kẻ đường phân giác góc ABC cắt AC tại E. Từ C vẽ đoạn thẳng vuông góc BE tại F. Chứng minh EA.EC = EB.EF c) Kẻ FH vuông góc AC tại H. Chứng minh HC.BC = FB.CF d) I là trung điểm BC. Chứng minh I,H,F thẳng hàng mng giúp mình với ạ!

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