Viết ct nhập mảng A gồm N số thực a. Tính và xuất ra màn hình trung bình cộng giá trị các phân tử của mảng b. Xuất ra màn hình những phân tử có giá tr

0 bình luận về “Viết ct nhập mảng A gồm N số thực a. Tính và xuất ra màn hình trung bình cộng giá trị các phân tử của mảng b. Xuất ra màn hình những phân tử có giá tr”

1. uses crt;
   var a:array[1..10000] of real;
   n,i:integer;
   s:real;
   begin
    clrscr;
    write(‘nhap n:’); readln(n);
    for i:=1 to n do
    begin
     write(‘a[‘,i,’]:’); readln(a[i]);
     s:=s+a[i]; 
    end;
    s:=s/n;
    writeln(‘trung binh cong: ‘,s:0:2);
    writeln(‘cac phan tu co gia tri lon hon hoac bang trung binh cong la:’);
    for i:=1 to n do if (a[i]>=s) then writeln(a[i]:0:2);
    readln;
   end.

   Bình luận

2. program Tin_hoc;

   uses crt;

   var i,n,tong,tb:integer;

        a:array [1..10000000] of real;

   begin

   clrscr;

   write(‘Nhap do dai cua mang: ‘);readln(n);

   tong:=0;

   writeln(‘Nhap ‘,n,’ cua mang:’);

   for i:= 1 to n do

   begin

   readln(a[i]);

   tong:=tong+a[i]

   end;

   tb:=tong/n;

   writeln(‘Cac phan tu co gia tri lon hon hoac bang trung binh cong la:’);

   for i:= 1 to n do if a[i] >= tb then write(a[i]:1:2,’   ‘);

   readln;

   end.

   Bình luận