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.

25 tháng 4 2021

uses crt;

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

i,n,tb:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 10 do 

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

tb:=0;

for i:=1 to 10 do 

  tb:=tb+a[i];

writeln;

writeln('Diem trung binh cua 10 ban la: ',tb:4:2);

readln;

end.
 

12 tháng 5 2022

Tham khảo

program oken;
uses crt;
var a: array [1..100] of real;
    i,n,dy,dtb,dk,dg:integer;
begin
        clrscr;
        write('Co bao nhieu ban can nhap diem: '); readln(N);
        for i:=1 to n do
                begin
                        write('nhap diem ban thu ',i,': ');
                        readln(a[i]);
                        if a[i]<5 then
                                dy:=dy+1
                        else if a[i]<6.4 then
                                dtb:=dtb+1
                        else if a[i]<7.9 then
                                dk:=dk+1
                        else
                                dg:=dg+1;
                end;
        writeln('So ban hoc yeu: ',dy);
        writeln('So ban hoc trung binh: ',dtb);
        writeln('So ban hoc kha: ',dk);
        writeln('so ban hoc gioi: ',dg);
        readln;
end.

12 tháng 5 2022

program Phanloai;

uses crt;

Var i, n, Gioi, Kha, Trungbinh, Kem: integer;

      A: array[1..100] of real;

Begin

clrscr;

write('Nhap so cac ban trong lop, n = '); readln(n);

writeln('Nhap diem:');

For i:=1 to n do Begin write(i,'.'); readln(a[i]); End;

Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;

for i:=1 to n do

   begin

        if a[i]>=8.0 then Gioi:=Gioi+1;

        if a[i]<5 then Kem:=Kem+1;

        if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;

        if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1

     end;

writeln('Ket qua hoc tap:');

writeln(Gioi,' ban hoc gioi');

writeln(Kha,' ban hoc kha');

writeln(Trungbinh,' ban hoc trung binh');

writeln(Kem,' ban hoc kem');

readln

End.

9 tháng 5 2022

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

uses crt;

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

i,n:integer;

begin

clrscr;

n:=5;

for i:=1 to n do 

  begin

   readln(a[i],b[i],c[i]);

end;

for i:=1 to n do 

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

for i:=1 to n do 

  writeln('Diem trung binh cua ban thu ',i,' la: ',tb[i]:4:2);

readln;

end.

2 tháng 5 2023

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.

9 tháng 4 2021

9 tháng 4 2021

undefined

Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D 

2 tháng 3 2022

XEM HÌNH

imagerotate