Làm chi tiết dễ hiểu nhé Viết chương trình nhập vào 1 mảng gồm n số nguyên ( n<=200) a) tính tổng các phần tử của mảng. b) tính tích các phần tử của

#Ngắn gọn, dễ hiểu, chi tiết

Xin hay nhất

a,b)

uses crt;
var n,i,t,s:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write(‘n=’);readln(n);
   for i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
      end;
   t:=1;
   for i:=1 to n do begin s:=s+a[i]; t:=t*a[i]; end;
   writeln(‘Tong cac phan tu: ‘,s);
   writeln(‘Tich cac phan tu: ‘,t);
readln;
end.

c1)

uses crt;
var n,i,d:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write(‘n=’);readln(n);
   for i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
      end;
   for i:=1 to n do if a[i] mod 2=1 then inc(d);
   if d=0 then writeln(‘Khong co so le’) else
      begin
         writeln(‘Cac so le: ‘);
         for i:=1 to n do if a[i] mod 2=1 then writeln(a[i]);
      end;
readln;
end.

c2)

uses crt;
var n,i,d:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write(‘n=’);readln(n);
   for i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
      end;
   for i:=1 to n do if a[i] mod 2=0 then inc(d);
   if d=0 then writeln(‘Khong co so chan’) else
      begin
         writeln(‘Cac so chan: ‘);
         for i:=1 to n do if a[i] mod 2=0 then writeln(a[i]);
      end;
readln;
end.

d1)

uses crt;
var n,i,t:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write(‘n=’);readln(n);
   for i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
      end;
   for i:=1 to n do if a[i] mod 2=1 then inc(t,a[i]);
   writeln(‘Tong cac so le: ‘,t);
readln;
end.

d2)

uses crt;
var n,i,t:longint; a:array[1..1000000]of longint;
begin
clrscr;
   write(‘n=’);readln(n);
   for i:=1 to n do
      begin
         write(‘a[‘,i,’]=’);readln(a[i]);
      end;
   for i:=1 to n do if a[i] mod 2=0 then inc(t,a[i]);
   writeln(‘Tong cac so chan: ‘,t);
readln;
end.