1.viết chương trình nhập vào 1 dãy số nguyên tính tổng 2.viết chương trình nhập vào 1 dãy số nguyên tính tích các số chẵn 3.viết chương trình nhập và

0 bình luận về “1.viết chương trình nhập vào 1 dãy số nguyên tính tổng 2.viết chương trình nhập vào 1 dãy số nguyên tính tích các số chẵn 3.viết chương trình nhập và”

1. Câu `1`

   Program Hotboy;

   Uses crt;

   Var i,n:integer;

   S:longint;

   A:array[1..100] of integer;

   Begin

   clrscr;

   S:=0;

    Write(‘nhap n nguyen duong tu ban phim ‘);

    Readln(n);

    For i:=1 to n do

   Begin

       Write(‘ A[‘,i,’]’);readln(A[i]);

   End;

   Write(‘day so do la’);

   For i:=1 to n do

   S:=S+A[i];

   Write(‘Tong la’,S);

   Readln

   End.

   Câu `2`

   Program Hotboy;

   Uses crt;

   Var i,n:integer;

   S:longint;

   A:array[1..100] of integer;

   Begin

   clrscr;

   S:=1;

    Write(‘nhap n nguyen duong tu ban phim ‘);

    Readln(n);

    For i:=1 to n do

   Begin

       Write(‘ A[‘,i,’]’);readln(A[i]);

   End;

   Write(‘day so do la’);

   For i:=1 to n do

   If (A[i] mod 2=0) then S:=S*A[i];

   Write(‘tich la’,S);

   Readln

   End.

   Bài `3`

   Program Hotboy;

   Uses crt;

   Var i,n:integer;

   S:longint;

   A:array[1..100] of integer;

   Begin

   clrscr;

   S:=0;

    Write(‘nhap n nguyen duong tu ban phim ‘);

    Readln(n);

    For i:=1 to n do

   Begin

       Write(‘ A[‘,i,’]’);readln(A[i]);

   End;

   Write(‘day so do la’);

   For i:=1 to n do

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

   Write(‘tong la’,S);

   Readln

   End.

   Bình luận

2. 1.

   program ct;

   uses crt;

   var i,n,s:integer;

   A:array[1..100] of integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   s:=0;

   for i:=1 to n do s:=s+A[i];

   writeln(‘tong la:’,s);

   readln

   end.

   2.

   program ct;

   uses crt;

   var i,n,T:integer;

   A:array[1..100] of integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   T:=1;

   for i:=1 to n do

     if A[i] mod 2=0 then T:=T*A[i];

   writeln(‘tich cac so chan la:’,T);

   readln

   end.

   3.

   program ct;

   uses crt;

   var i,n,s:integer;

   A:array[1..100] of integer;

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   s:=0;

   for i:=1 to n do

   if A[i] mod 2=1 then s:=s+A[i];

   writeln(‘tong la:’,s);

   readln

   end.

   câu 3 mình ko rõ đề tính gì nên mình tính tổng các số lẻ nhe bạn

   Bình luận