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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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;

   Bình luận