viết chương trình nhập vào dãy số với độ dài nhập từ bàn phím là tính trung bình và in ra các số chẵn của dãy số

0 bình luận về “viết chương trình nhập vào dãy số với độ dài nhập từ bàn phím là tính trung bình và in ra các số chẵn của dãy số”

1. program oken;
   uses crt;
   var a: array [1..100] of longint;
       i,n,sum:longint;
   begin
           clrscr;
           write(‘Nhap so luong phan tu cua mang: ‘); readln(n);
           sum:=0;
           for i:=1 to n do
                   begin
                           write(‘A[i]: ‘); readln(a[i]);
                           sum:=sum+a[i];
                   end;
           writeln(‘TBC cua day so: ‘,sum/n:0:3);
           write(‘cac so chan cua day so: ‘);
           for i:=1 to n do
                   if a[i] mod 2=0 then write(a[i],’ ‘);
           readln;
   end.

   Bình luận

2. programMang_le; ;

   uses crt;

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

   i,n,S:integer;

   begin

   writeln(‘Nhap vao so phan tu:’);

   readln(n);

   for i:=1 to n do

   begin

   writeln(‘a[‘,i,’]=’);

   readln(a[i]);

   end;

   for i:=1 to n do if a[i] mod 2=1 then S:=S+a[i];

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

   readln

   end.

   Bình luận