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Á
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
By Melanie
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.
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;