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Á
2 câu trả lời
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;
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.
