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.

26 tháng 4 2022

program b1;
uses crt;
var i,n,dat,chuadat:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap tong so ban trong lop:');
readln(n);
for i:=1 to n do  readln(a[i]);
dat:=0; chuadat:=0;
for i:=1 to n do
begin
if (a[i]>=5) then inc(dat);
if (5>=a[i]) then inc(chuadat);
end;
writeln('So hoc sinh dat la:',dat);
writeln('So hoc sinh chuadat la:',chuadat);
readln;
end.

Tham khao!

26 tháng 4 2022

Phần xổ số miên là mình viết nhầm

Nó là: xử dụng biến mảng nha

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.

uses crt;

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

ln,nn:real;

i:integer;

begin

clrscr;

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

for i:=1 to 10 do 

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

ln:=0;

nn:=10;

for i:=1 to 10 do 

  begin

if ln<tb[i] then ln:=tb[i];

if nn>tb[i] then nn:=tb[i];

end;

writeln(ln:4:2);

writeln(nn:4:2);

for i:=1 to 10 do 

 begin

if tb[i]>=5 then writeln('Ban thu ',i,' Dat')

else writeln('Ban thu ',i,'Chua dat');

end;

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.

18 tháng 4 2023

program TimDiemCaoNhat;

var
  diem: array[1..30] of integer;
  i, diemCaoNhat, soThuTu: integer;

begin
  for i := 1 to 30 do
  begin
    write('Nhap diem cua ban thu ', i, ': ');
    readln(diem[i]);
  end;
  diemCaoNhat := diem[1];
  soThuTu := 1;
  for i := 2 to 30 do
  begin
    if diem[i] > diemCaoNhat then
    begin
      diemCaoNhat := diem[i];
      soThuTu := i;
    end;
  end;
  writeln('Diem cao nhat la: ', diemCaoNhat);
  writeln('Ban thu ', soThuTu, ' dat diem cao nhat.');
  
  readln;
end.

9 tháng 5 2023

Em cho thêm điều kiện loại Khá của em là gì?