Các câu lệnh cực kì dễ hiểu nha! Có gì không hiểu bạn cứ bình luận bên dưới

Câu a,b)

program cau_ab;

uses crt;

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

      n,i:integer;

      tong:longint;

      tich:int64;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

tong:=0;  tich:=1;

for i:=1 to n do

 begin

  write('phan tu thu ',i,': ');

  readln(A[i]);

  tong:=t+A[i];   {cong tong}

  tich:=tich+A[i];   {tinh tich}

 end;

writeln('Tong cac phan tu cua mang la: ',tong);

writeln('Tich cac phan tu cua mang la: ',tich);

readln

end.

Câu c)

program cau_c;

uses crt;

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

      n,i,dc,dl:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

dc:=0;  dl:=0;

for i:=1 to n do

 begin

  write('phan tu thu ',i,': ');

  readln(A[i]);

  if A[i] mod 2=0 then dc:=dc+1

    else dl:=dl+1;

 end;

if dl=0 then writeln('Khong co phan tu le')

 else

  begin

   write('Phan tu le trong mang la: ');

   for i:=1 to n do

    if A[i] mod 2=1 then write(A[i],' ');

   writeln;

   end;

if dc=0 then writeln('Khong co phan tu chan')

 else

  begin

   write('Phan tu chan trong mang la: ');

   for i:=1 to n do

    if A[i] mod 2=0 then write(A[i],' ');

  end;

readln

end.

Câu d)

program cau_d;

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

       n,i:integer;

       sc,sl:longint;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n;

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

sc:=0; sl:=0;

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

  if A[i] mod 2=0 then sc:=sc+A[i] else sl:=sl+A[i];

 end;

writeln('Tong cac phan tu le trong mang la: ',sl);

writeln('Tong cac phan tu chan trong mang la: ',sc);

readln

end.

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