Câu : viết chương trình nhấp N phần tử trong mảng, sau đó nhập lần lượt các giá trị của từng phần tử trong mảng rồi thực hiện: a. in ra giá trị của các phàn tử trong mảng trên một dòng. b. tính tổng các phần tử trong mảng có giá trị chẵn. c. tính tổng các phần tử trong mảng có gi

459977674983821

2 năm trước

Câu : viết chương trình nhấp N phần tử trong mảng, sau đó nhập lần lượt các giá trị của từng phần tử trong mảng rồi thực hiện: a. in ra giá trị của các phàn tử trong mảng trên một dòng. b. tính tổng các phần tử trong mảng có giá trị chẵn. c. tính tổng các phần tử trong mảng có giá trị lẽ và đếm các phần tử lẽ đó.

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

thienhac7

Program Typlex;

Uses crt;

Var M: array[1..1000000] of longint;

i,n,sum,dem: longint;

Begin

Writeln('Nhap so phan tu: '); Readln(n);

For i:=1 to n do

Begin

Writeln('M[',i,']=');

Readln(M[i]);

End;

(*Cau a*)

For i:=1 to n do Write(M[i],' ');

(*Cau b*)

sum:=0;

For i:=1 to n do

If M[i] mod 2 = 0 then sum:=sum+M[i];

Write('Tong cua cac phan tu chan trong mang la: ',sum);

(*Cau c*)

sum:=0; dem:=0;

For i:=1 to n do

If M[i] mod 2 = 1 then

Begin

sum:=sum+M[i];

dem:=dem+1;

End;

Writeln('Tong cua cac phan tu le trong mang la: ',sum);

Writeln('So phan tu le la: ',dem);

Readln

End.

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

lethiphuong09012005

uses crt;
var a:array[1..1000000] of longint;
n,i,d,s,s1:integer;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
d:=0;s:=0;s1:=0;
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i] mod 2=0 then s:=s+a[i];
if a[i] mod 2=1 then begin s1:=s1+a[i]; d:=d+1; end;
end;
write('Gia tri cac phan tu: ');
for i:=1 to n do write(a[i],' '); writeln;
writeln('Tong cac phan tu chan: ',s);
writeln('Tong cac phan tu le: ',s1);
write('Co ',d,' phan tu la so le');
readln;
end.

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

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

Em đang cần gấp ạ một xe khách và một xe du lịch khởi hành cùng một lúc từ A đến B. xe du lịch có vận tốc lớn hơn vận tốc của xe khách là 20km/h, do đó nó đến B trước 25 phút . Tính vận tốc của mỗi xe, biết khoảng cách AB là 100km

Loài động vật nào có lông mao bao phủ toàn thân? *

............................. giúp em

Cho mặt phẳng Oxy , cho hình bình hành ABCD có đỉnh B(-2,6) . Biết phương trình các đường thẳng chứa 2 cạnh AD và DC lần lượt là :4x-y=0 và 2x+3y+14=0 a) Viết phương trình đường tròn (C) có tâm là đỉnh B và tiếp xúc đường thẳng chứa cạnh AD b) Tính diện tích hình bình hành ABCD

Vẽ mầm buồn đi mn Ai như tui ko,chx thi môn nào Có khi còn phải thi online nx này

Một số bạn đang đua đòi theo những lối ăn mặc ko lành mạnh ko phù hợp với lứa tuổi học sinh em hãy viết một bài văn nghị luận

Giúp mk bài này, chữ xấu mn gáng nhìn ạ

dựa vào bảng trên nhân xét về mùa lũ trên các lưu vực sông ở nước ta và giải thích

A=2+2^2+2^3+...+2^100 Ai làm nhanh nhất mình vote 5 sao và trả lời hay nhất nha

Làm đúng nha mk hứa cho 5☆+♡sau 10s.Giáo viên mk sẽ chấm bài này ,nếu làm ko đúng yêu cầu mk sẽ ko làm theo lời hứa đâu nha

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