Những câu hỏi liên quan
Khue Nguyen
Xem chi tiết
ERROR
9 tháng 5 2022 lúc 19:55

refer

uses crt;
var i,n:longint;
a:array[1..100] of real;
s1,s,max,min:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Diem trung binh mon tin hoc cua ban thu ',i,' la: ');readln(a[i]);
end;
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]; end;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln('So diem cao nhat la: ',max);
writeln('So diem thap nhat la: ',min);
write('Diem TB cua ca lop la: ',s1:0:1);
readln

Bình luận (0)
Bàn Chàn Khuân
Xem chi tiết
Bùi Thị Phương Nga
Xem chi tiết
nguyensonbd
Xem chi tiết
Bùi Anh Tuấn
28 tháng 4 2021 lúc 19:53

nếu chạy ct mà nó không dừng lại thì bấm alt+F5 nhá

Bình luận (1)
Thuận Ngô
Xem chi tiết
Ngô Bá Hùng
2 tháng 5 2023 lúc 17:34

program DiemTrungBinh;

var
  i, n: integer;
  diem, tong: real;

begin
  n := 40;
  tong := 0;

  for i := 1 to n do
  begin
    write('Nhap diem cua hs ', i, ': ');
    readln(diem);
    tong := tong + diem;
  end;

  writeln('Diem  cua lop la: ', tong / n:0:2);

  readln;
end.

Bình luận (0)
Duy Minh
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 23:42

 

#include <bits/stdc++.h>

using namespace std;

double a,b,c,tb;

int main()

{

cin>>a>>b>>c;

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

cout<<fixed<<setprecision(1)<<tb<<endl;

if (tb>=8) cout<<"Gioi";

else if ((6.5<=tb) and (tb<8)) cout<<"Kha";

else if ((5<=tb) and (tb<=6.5)) cout<<"Trung Binh";

else cout<<"Chua dat";

return 0;

}

Bình luận (1)
Nguyễn Tuấn Anh
Xem chi tiết
Phía sau một cô gái
10 tháng 4 2023 lúc 20:20

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.

Bình luận (0)
Nguyên Đăng
Xem chi tiết
Hoàng Hải Bình
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 11:31

uses crt;

var st:array[1..10]of string;

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

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

 readln(st[i],a[i]);

for i:=1 to n do 

  writeln(st[i],' ',a[i]);

readln;

end.

Bình luận (0)