Tin học 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 15/07/2021 By Lyla 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. Trả lời
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. Trả lời