Viết chương trình nhập vào mảng một chiều gồm 100 phần tử thuộc kiểu số thực. Tính tổng các phần tử lẻ có chỉ số chẵn của mảng. MN GIÚP MÌNH VỚI Ạ CẦN GẤP QUÁ

nguyenthu2911

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 17 xem

1 trả lời

Thích Trả lời

hsganh12blb

program Project1;

var a:array [1..100] of integer;
n, i: integer;
le: integer;
begin
write('Nhap so phan tu co trong mang: '); readln(100);
for i:=1 to 100 do
begin
write('Nhap vao phan tu thu A[',i,']: '); readln(A[i]);
end;
le:=0;
for i:=1 to n do
begin
if (A[i] mod 2 <> 0) then
le:=le+A[i];
end;
writeln('Tong cac phan tu le la ', le);
readln;
end.

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

diepdungchau

var a: array[1..100] of real;

S: real;

I: byte;

Begin

For i:=1 to 100 do

Begin

Write('a[',i,'] = '); readln(a[i]);

If i mod 2 = 0 then

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write(s);

Readln

End;

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

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

E cần gấp ạ. Hứa cho 5 sao nhoa!!!

Một vật có khối lượng 150g được ném thẳng đứng lên cao với vận tốc 10m/s, cao 2m so với mặt đất. bỏ qua sức cản của không khí, lấy g=10m/s^2. Chọn mốc thế năng tại mặt đất. Hãy tính độ cao của vật khi vật có động năng bằng thế năng

Tóm tắt những nội dung này giúp mk nhé: Vấn đề 1: Vị trí Việt Nam Vấn đề 2: Vùng biển Việt Nam Vấn đề 3: Đặc điểm địa hình

Trong hai yếu tố tài năng và đạo đức của một con người, yêu tố nào quan trọng hơn? vì sao

Nêu vai trò của thức ăn vật nuôi? (3 ý)

Viết phương trình đường tròn tiếp xúc (d): 3x-4y-31=0 tại A(1;-7) và có bán kính bằng 5

Viết dàn ý về lễ hội Tết theo mẫu dưới

Viết phương trình đường tròn qua A(4;2) và tiếp xúc 2 đường thẳng x-3y-2=0 và x-3y+18=0

Nhận biết CH4, C2H4, CO2 bằng PPHH

những biện pháp để bảo vệ, rèn luyện da. Cần làm gì để phòng tránh các bệnh ngoài da

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