Nhập mảng 1 chiều gồm 50 số nguyên dương tính tổng các số lẻ Mn giúp mk vs ạ Thank mn

0 bình luận về “Nhập mảng 1 chiều gồm 50 số nguyên dương tính tổng các số lẻ Mn giúp mk vs ạ Thank mn”

1. program im_14424;

   uses crt;

   var A: array[1..50] of integer;

   S: integer;

   i: byte;

   begin

   clrscr;

   S:=0;

   for i:=1 to 50 do

   begin

   write(‘Nhap vao cac phan tu: ‘);

   readln(A[i]);

   if (A[i]>0) and (A[i] mod 2 <> 0) then S:=S+A[i];

   end;

   write(‘Tong cac so le la: ‘,S);

   readln

   end.

   Bình luận

2. uses crt;
   var a:array[1..50]of longint;
       i,s:longint;
   begin
       clrscr;
       for i:=1 to 50 do
           begin
               write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
               if a[i] mod 2=1 then inc(s,a[i]);
           end;
       write(‘Tong cac so le: ‘,s);
       readln
   end.

   Bình luận