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.

10 tháng 4 2023

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.

uses crt;

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

n,i,dem:integer;

begin

clrscr;

readln(n);

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

dem:=0;

for i:=1 to n do 

  if a[i]>=8 then dem:=dem+1;

for i:=1 to n do 

 if a[i]>=8 then write(a[i]:4:2,' ');

writeln;

writeln(dem);

readln;

end.

21 tháng 3 2023

program DiemTrungBinh;
var
  diem: real;
  i, n: integer;
begin
  write('Nhap so luong ban trong lop: ');
  readln(n);
  
  for i := 1 to n do
  begin
    write('Nhap diem trung binh cua ban ', i, ': ');
    readln(diem);
    if diem >= 5 then
      writeln('Diem trung binh cua ban ', i, ' la: ', diem:0:2);
  end;
end.

 

uses crt;

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

i,n,dem1,dem2,dem3,dem4:integer;

begin

clrscr;

readln(n);

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

dem1:=0;

dem2:=0;

dem3:=0;

dem4:=0;

for i:=1 to n do 

  begin

 if (a[i]>=8) then inc(dem1);

if (6.5<=a[i]) and (a[i]<=7.9) then inc(dem2);

if (5<=a[i]) and (a[i]<=6.4) then inc(dem3);

if (a[i]<5) then inc(dem4);

end;

writeln('So hoc sinh gioi la: ',dem1);

writeln('So hoc sinh kha la: ',dem2);

writeln('So hoc sinh trung binh la: ',dem3);

writeln('So hoc sinh kem la: ',dem4);

readln;

end.

24 tháng 4 2022

Giúp mình với nhé please 

24 tháng 4 2022

a:array[1..200] of real;
begin
clrscr;
write('Nhap tong so ban trong lop:');
readln(n);
for i:=1 to n do readln(a[i]);
gioi:=0; kha:=0; kem:=0;
for i:=1 to n do
begin
if (a[i]>=8) then inc(gioi);
if (6.5<=a[i]) and (a[i]<=7.9) then inc(kha);
if (a[i]<6.5) then inc(kem);
end;
writeln('So hoc sinh gioi la:',gioi);
writeln('So hoc sinh kha la:',kha);
writeln('So hoc sinh kem la:',kem);
readln;
end.

#include <bits/stdc++.h>

using namespace std;

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

int n,i,dem;

int main()

{

cout<<"Nhap so cot thuong xuyen:"; cin>>n;

tb=0;

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

{

cin>>a[i];

tb=tb+a[i];

}

cin>>b>>c;

tb=tb+b+c;

cout<<fixed<<setprecision(2)<<tb/(n+2)<<endl;

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

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

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

else cout<<"Yeu";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

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

int i,n;

int main()

{

cout<<"Nhap so cot thuong xuyen:"; cin>>n;

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

cout<<"Nhap diem giua ki:"; cin>>b;

cout<<"Nhap diem cuoi ki:"; cin>>c;

tb=0;

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

tb=tb+b+c;

tb=tb/((n+2)*1.0);

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

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

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

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

else cout<<"Yeu";

return 0;

}