Viết chương trình tính tổng nhập vào 5 phần tử là số nguyên. Tìm trung bình cộng của dãy số nguyên đó và tìm phần tử có giá trị lớn nhất

0 bình luận về “Viết chương trình tính tổng nhập vào 5 phần tử là số nguyên. Tìm trung bình cộng của dãy số nguyên đó và tìm phần tử có giá trị lớn nhất”

1. uses crt;

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

   i,max: integer;

   tbc: real;

   begin

   clrscr;

   for i:=1 to 5 do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

   if a[i]>max then max:=a[i];

   tbc:=tbc+a[i];

   end;

   writeln (‘trung binh cong: ‘,tbc:1:2);

   writeln (‘phan tu co gia tri lon nhat: ‘,max);

   readln;

   end.

   Bình luận

2. Viết chương trình tính tổng nhập vào 5 phần tử là số nguyên. Tìm trung bình cộng của dãy số nguyên đó và tìm phần tử có giá trị lớn nhất:

                          

   uses crt;

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

   i,max:integer;

   tbc: real;

   begin

   clrscr;

   for i:=1 to 5 do

   begin

   write (‘nhap phan tu thu ‘,i,’: ‘);  readln (a[i]);

   if a[i]>max then max:=a[i];

   tbc:=tbc+a[i];

   end;

   writeln (‘trung binh cong: ‘,tbc:1:2);

   writeln (‘phan tu co gia tri lon nhat: ‘,max);

   readln;

   end.

   Bình luận