K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

14 tháng 3 2017

uses crt;

var

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

i,n,tong:integer;

begin

write('So hoc sinh trong lop: ');readln(n);

for i:=1 to n do

begin

write('Diem kiem tra cua ban thu ',i,' la: ');readln(a[i]);

tong:=tong+a[i]

end;

b:=tong/n

write('Diem trung binh tin hoc cua ca lop la: ',b:2:1);

readln;

end.

CT này mình chưa test nên có thể có 1 số loại nhỏ

16 tháng 3 2017

hay, bạn giỏi quá trời luôn, khen thật đó :)

#include <bits/stdc++.h>

using namespace std;

double a[100],t;

int n,i;

int main()

{

cin>>n;

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

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

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

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<"Trung binh cua lop la: "<<fixed<<setprecision(2)<<t/(n*1.0);

return 0;

}

2 tháng 3 2022

XEM HÌNH

imagerotate

#include <bits/stdc++.h>

using namespace std;

double x,ln;

int n,i;

int main()

{

cin>>n;

ln=0;

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

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

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.

22 tháng 4 2023

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.

5 tháng 5 2023

Đề không rõ ràng. Em xem lại nhé!