#include <bits/stdc++.h>

using namespace std;

double a[100],b[100],c[100],tb[100];

int n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i]>>b[i]>>c[i];

for (i=1; i<=n; i++)

tb[i]=(a[i]+b[i]+c[i])/3;

for (i=1; i<=n; i++)

cout<<"Diem cua ban thu "<<i<<" la: "<<fixed<<setprecision(2)<<tb[i]<<endl;

return 0;

}

uses crt;

var a,b,c,tb:array[1..10]of real;

ln,nn:real;

n:integer;

i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i],b[i],c[i]);

for i:=1 to n do 

  tb[i]:=(a[i]+b[i]+c[i])/3;

for i:=1 to n do

writeln(tb[i]:4:2);

readln;

end.

Tham khảo

Var a,b:array[1..100] of integer;
          c: array[1..100] of real;
          i,n:integer;
Begin
write('Nhap so hoc sinh: ');readln(n);
writeln('Nhap diem Toan');
for i:=1 to n do begin write(i,'. ');readln(a[i]);end;
writeln('Nhap diem Van');
for i:=1 to n do begin write(i,'. ');readln(b[i]);end;
for i:=1 to n do c[i]:=(a[i]+b[i])/2;
writeln('Diem trung binh');
for i:=1 to n do writeln(i,'. ',c[i]);
readln

#inlude<iostream>

using namespace std;

int main() {

    int a, b, c;

   cout << "Điểm toán : "; cin >> a;

   cout << "Điểm văn : "; cin >> b;

   cout << "Điểm Anh : "; cin >> c;

   int d = 2 * a;

   int g = 2 * b;

   int h = d + g + c;

  cout << "Điểm trung bình môn toán, văn, anh là: " << h / 3;

  return 0;

}

uses crt;

var a:array[1..100]of real;

i,n:integer;

ln:real;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do writeln(a[i]);

ln:=a[1];

for i:=1 to n do if ln<a[i] then ln:=a[i];

writeln(ln);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tbc;

int main()
{

cin>>a>>b>>c;

tbc=(a+b+c)/3;

cout<<"Tong la:"<<fixed<<setprecision(2)<<a+b+c<<endl;

cout<<"TBC la:"<<fixed<<setprecision(2)<<tbc;

return 0;

}

program TinhTBCMon;

var

      n, i: integer;

      diemAnh, diemVL, tongDiemAnh, tongDiemVL: real;

begin

      tongDiemAnh := 0;

      tongDiemVL := 0;

      write('Nhap so hoc sinh: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap diem Tieng Anh cua hoc sinh ', i, ': ');

            readln(diemAnh);

            tongDiemAnh := tongDiemAnh + diemAnh;

            write('Nhap diem Vat ly cua hoc sinh ', i, ': ');

            readln(diemVL);

            tongDiemVL := tongDiemVL + diemVL;

      end;

      writeln('Diem trung binh mon Tieng Anh cua lop la: ', tongDiemAnh/n:0:2);

      writeln('Diem trung binh mon Vat ly cua lop la: ', tongDiemVL/n:0:2);

      readln;

end.

program DiemTB;

var

      diemToan, diemVan, diemTB: real;

begin

      write('Nhap diem mon Toan: ');

      readln(diemToan);

      write('Nhap diem mon Van: ');

      readln(diemVan);

      diemTB := (diemToan + diemVan) / 2;

      writeln('Diem trung binh: ', diemTB:0:2);

      if diemTB >= 5 then

            writeln('Chuc mung! Ban da dau ky thi.')

      else

            writeln('Rat tiec! Ban da truot ky thi.');

      readln;

end.