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.
var i,n,s:integer;
t,v,a,tb:real;
begin
write('Nhap so luong hoc sinh ');readln(n);
for i:=1 to n do
begin
write('Nhap diem toan ');readln(t);
write('Nhap diem van ');readln(v);
write('Nhap diem anh ');readln(a);
s:=t+v+a;
tb:=s/3;
write('DTB cua ban thu ',i,' = ',tb:10:2);
s:=0;
end;
readln
end.
Program Xet_tuyen;
Uses crt;
Var a,b,S: real;
Begin
clrscr;
writeln('Nhap vao diem Toan cua hoc sinh do:'); readln(a);
writeln('Nhap vao diem Van cua hoc sinh do:'); readln(b);
S:=(a*2+b)/3;
writeln('Diem trung binh 2 mon Toan va Van cua ban do la:',S:2:1);
if S>=5 then writeln('KET QUA:DAU')
else writeln('KET QUA:HONG');
readln
End.
Lời giải :
program hotrotinhoc ;
var a: array[1..100] of real ;
i,n,T : integer ;
s: real ;
Begin
write('Nhap so luong hoc sinh trong lop'); Readln(n);
writeln('Nhap diem cua cac ban hoc sinh');
for i:= 1 to n do
begin
write('Nhap diem cua ban thu',i,':'); readln(a[i]);
end;
T:=1; s:=0;
for i:= 2 to n do
begin
if T<a[i] then T:=a[i] ;
s:=s+a[i];
end;
write('Diem thi cao nhat lop la:',T);
write('Diem trung binh cua ca lop la',s);
readln
end.
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.
#include <bits/stdc++.h>
using namespace std;
double a[1000];
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
#include <bits/stdc++.h>
using namespace std;
double a,b,c,tb;
int main()
{
cin>>a>>b>>c;
tb=(a+b)*2+c;
if (tb>=38) cout<<"Chuc man ban da thi dau tuyen sinh";
else cout<<"Ban da thi rot, chuc may man lan sau";
return 0;
}
Var a:array[1..35] of real;
i:integer;
Begin
For i:=1 to 35 do
Begin
Write('Nhap diem thu ',i);readln(a[i]);
End;
write('Diem vua nhap la ');
For i:=1 to 35 do write(a[i]:10:2);
Writeln;
write('Cac diem duoi 5 hoac > la ');
For i:=1 to 35 do
If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)
Readln
End.
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]);
ln:=0;
for i:=1 to n do if ln<a[i] then ln:=a[i];
writeln(ln:4:2);
readln;
end.