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.

19 tháng 5 2021

var dtb: array[1..1000] of real;

i,n: integer;

Chương trình:

uses crt;

  var dtb: array[1..1000] of real;

  i,n: integer;

      begin

      clrscr;

   Write ('so luong 45 hoc sinh: ');  readln (n);

   for i:=1 to n do;

 begin;

write ('nhap diem trung binh hoc sinh thu ',i,': ');  readln (a[i]);

end;

   write ('day diem vua nhap: ');

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

readln;

end.

var diemtb:array[1..45]of real;

2 tháng 3 2022

XEM HÌNH

imagerotate

9 tháng 5 2023

Phần tử trong mảng nha mn ghi nhầm

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c,d,t;

int main()

{

cin>>a>>b>>c>>d;

t=(a*3+b*2+c+d)/7;

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

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

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

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

else cout<<"Yeu";

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.

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

write('Nhap so mon hoc='); readln(n);

for i:=1 to n do 

begin

repeat

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

until (0<=a[i]) and (a[i]<=10);

end;

for i:=1 to n do 

  write(a[i]:4:2,' ');

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Diem trung binh mon la: ',t/n:4:2);

if t>=5 then writeln('Duoc len lop')

else writeln('Thi lai');

readln;

end.

Sus help me các step brother!

1 tháng 4 2022

Program HOC24;

var Toan,Ly,Tin,TBMToan,TBMLy,TBMTin: real;

i,n: byte;

begin

write('Nhap so ban hoc sinh trong lop: '); readln(n);

for i:=1 to n do 

begin

write('Nhap diem Toan; Ly; Tin cua ban thu ',i,': ');

readln(Toan[i],Ly[i],Tin[i]);

end;

TBMToan:=0; TBMLy:=0; TBMTin:=0;

For i:=1 to n do 

begin

TBMToan:=TBMToan+Toan[i];

TBMLy:=TBMLy+Ly[i];

TBMTin:=TBMTin+Tin[i];

end;

writeln('Diem trung binh mon Toan la: ',TBMToan:5:1);

writeln('Diem trung binh mon Ly la: ',TBMLy:5:1);

writeln('Diem trung binh mon Tin la: ',TBMTin:5:1);

For i:=1 to n do

writeln('Diem trung binh 3 mon cua ban thu ',i,' la: ',TBMToan+TBMLy+TBMTin:5:1);

Readln

end.

Bài 1: Thông tin của học sinh gồm:- Mã học sinh: Kiểu xâu- Họ tên: Kiểu xâu- Ngày sinh: Kiểm xâu- Điểm: Kiểu số1. Hãy khai báo kiểu bản ghi HocSinh gồm các thông tin trên2. Nhập vào một học sinh, in ra học sinh vừa nhập3. Khai báo mảng HS có n học sinh. Nhập danh sách n học sinh từ bàn phím và in danh sách học sinh đã nhập ra màn hình bằng hai cách: sử dụng with do và không sử dụng with doBài 2: Thông tin của Nhân viên...
Đọc tiếp

Bài 1: Thông tin của học sinh gồm:

- Mã học sinh: Kiểu xâu

- Họ tên: Kiểu xâu

- Ngày sinh: Kiểm xâu

- Điểm: Kiểu số

1. Hãy khai báo kiểu bản ghi HocSinh gồm các thông tin trên

2. Nhập vào một học sinh, in ra học sinh vừa nhập

3. Khai báo mảng HS có n học sinh. Nhập danh sách n học sinh từ bàn phím và in danh sách học sinh đã nhập ra màn hình bằng hai cách: sử dụng with do và không sử dụng with do

Bài 2: Thông tin của Nhân viên gồm:

-Mã Nhân viên

-Họ tên

- Ngày sinh

-Giới tính

-Lương

1. Hãy khai báo kiểu bản ghi NhanVien gồm các thông tin trên

2. Khai báo mảng NV có n nhân viên. Nhập danh sách n nhân viên từ bàn phím và in danh sách học sinh đã nhập ra màn hình, mỗi nhân viên trên một dòng.

3. Sắp xếp danh sách nhân viên (mảng NV) theo thứ tự lương tự cao đến thấp. In ra màn hình danh sách đã sắp xếp

4. Nhập mã nhân viên từ bàn phím. Hãy tìm kiếm xem trong danh sách có nhân viên có mã vừa nhập không? Nếu có hãy chỉ ra thông tin của nhân viên này. Lưu ý: Khuyến khích sinh viên viết dưới dạng chương trình con.

0