Viết chương trình nhập N số nguyên từ bàn phím: a, in ra màn hình các số chẵn, số lẻ b, tính và in ra màn hình tổng các số âm, tổng các số dương c, đế

0 bình luận về “Viết chương trình nhập N số nguyên từ bàn phím: a, in ra màn hình các số chẵn, số lẻ b, tính và in ra màn hình tổng các số âm, tổng các số dương c, đế”

1. #Sha

   a. Số chẵn:

   uses crt; 
   var i,n,s:integer; 
   begin 
   clrscr; 
   writeln(‘ Nhập n : ‘ );Readln(n); 
   S:=0; 
   For i:=1 to n do 
   begin 
   if (i mod 2) = 0 then s:=s+i; 
   end; 
   Writeln(‘Tổng S: ,S);readln; 
   END. 

   Số lẻ:

   uses crt;
   var s,dem,i,n:integer;
         a:array[1..100] of integer;
   begin
   write(‘nhap n);readln(n);
   for i:=1 to n do 
   begin; wite(‘a[i]=’); readln(a[i]);
   dem:=0; s:=0;
   for i:=1 to n do
   begin;
   if a[i] <0 and a[i] mod 2 = 0 then dem:=dem+1;
   if a[i] mod 2 <> 0 then s:=s+a[i];
   end;
   writeln(‘co tat ca’,dem,’ so am chan trong day’);
   writeln(‘tong cac so le trong day la’,s);
   readln;
   end.

   b, c

   Var
   a:array[1..100] of integer;
   i,n,max,max1:integer;
   Begin
   readln(n);
   For i:=1 to n do
   begin
   readln(a[i]);
   write(a[i]);
   end;
   writeln;
   max:=0;max1:=0;
   For i:=1 to n do
   if a[i] mod 2=0 then If a[i]>max then max:=a[i];
   esle if a[i]>max1 then max1:=a[i];
   writeln(‘so chan lon nhat la:’,max);
   write(‘so le lon nhat trong day la:’,max1);
   readln
   end.

   _chúc bạn học tốt_

   Bình luận

2. Gộp cả a,b,c nhé:

   Program baitap;

   Uses crt;

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

         n,i,ta,td,d:integer;

   begin

   clrscr;

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

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

   for i:=1 to n do

    begin

     write(‘phan tu thu ‘,i,’: ‘);

     readln(A[i]);

    end;

   write(‘Cac so chan co trong day la: ‘);

   for i:=1 to n do

    if A[i] mod 2=0 then

     write(A[i],’ ‘);

   writeln;

   write(‘Cac so le co trong day la: ‘);

   for i:=1 to n do

    if A[i] mod 2=1 then

     write(A[i],’ ‘);

   ta:=0;   td:=0;

   for i:=1 to n do

    if A[i]<0 then ta:=ta+A[i]

    else td:=td+A[i];

   writeln(‘Tong cac so am trong day la: ‘,ta);

   writeln(‘Tong cac so duong co trong day la: ‘,td);

   d=0;

   for i:=1 to n do

    if A[i]=0 then d:=d+1;

   write(‘Co ‘,d,’ so 0 o trong day’);

   readln

   end.

   Bình luận