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.
uses crt;
var a:array[1..100] of integer;
n,i:integer;
begin
writeln('nhap so hoc sinh: ');readln(n);
writeln('nhap diem');
for i:=1 to n do
begin
write('a[',i,']');readln(a[i]);
end;
for i:=1 to n do write('hoc sinh ',i,' duoc ',a[i],' diem mon tin');
readln
end.
bài này mình chưa thử trên máy nên không biết đúng hay sai =v=
program bai1;
var a:array[1..100] ò longint;
i,n:longint;
begin
{Thu tu hoc sinh duoc viet theo a[..]}
repeat
write('N= ');
readln(n);
until n>0;
for i:=1 to n do
begin
write('a[',i,']= ');
readln9a[i]);
end;
write('Diem cua ',n,' hoc sinh la ');
for i:=1 to n do
write(a[i],' ');
readln
end.
uses crt;
var a:array[1..100]of real;
n,i:integer;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Nhap diem mon Tin cua hoc sinh thu ',i,'='); readln(a[i]);
end;
for i:=1 to n do
writeln('Diem cua ban thu ',i,'=',a[i]:4:2);
readln;
end.
1)
Var i, T: longint;
Begin
T:=0; i:=0;
While T<=100 do begini:=i+1;
T:= T+i;
End;
Writeln('Tong la ',T);
End.
2)
Var a: array[1..100] or real;
i,n: longint;
Begin
Readln(n);
Readln(a[i]);
For i:=1 to n do begin writeln('Diem la',i,'=',a[i]:8:2);
End;
Readln;
End.
- Tớ chưa chạy thử nên không biết đã đúng chưa. Cậu kiểm tra lại nhé!
2.
Program trung_binh;
Uses crt;
Var n, i : integer;
Diem : array[1..50] of real;
Begin
Clrscr;
Write(‘Nhap so luong hoc sinh N = ‘); Readln(n);
Writeln(‘Nhap diem cho tung hoc sinh’);
For i := 1 to n do
Begin
Write(‘Diem HS ‘,i,’ = ‘); readln(Diem[i]);
End;
For i : = 1 to n do
Writeln(‘Diem cua HS ‘,i, ‘ = ‘,diem[i]);
Readln;
End.
uses crt;
var n,i:integer;
a:array[1..100]of real;
begin
clrscr;
write('Nhap so hoc sinh:'); readln(n);
for i:=1 to n do
begin
write('Nhap diem cua hoc sinh thu ',i,'='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4:1,' ');
readln;
end.
Bài 3:
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) if (a[i]%2==0) cout<<a[i]<<" ";
return 0;
}
Câu 6:
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 2=0 then writeln(a,' la so chan')
else writeln(a,' la so le');
readln;
end.
Câu 7:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln(a-b)
else writeln(b-a);
readln;
end.
Câu 8:
uses crt;
var a,b,c,ln:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
ln:=a;
if ln<b then ln:=b;
if ln<c then ln:=c;
writeln(ln);
readln;
end.
Câu 10:
uses crt;
var toan,ly,hoa,dtb:real;
begin
clrscr;
write('Nhap diem Toan:'); readln(toan);
write('Nhap diem Ly:'); readln(ly);
write('Nhap diem Hoa:'); readln(hoa);
dtb:=(toan*2+ly+hoa)/4;
if dtb<5 then writeln('Yeu');
if (5<=dtb) and (dtb<8) then writeln('Kha');
if dtb>=8 then
begin
if (toan=10) and (hoa>7) and (ly>7) then writeln('Gioi va nhan hoc bong')
else writeln('Gioi va khong nhan hoc bong');
end;
readln;
end.
2)
Var x,y: integer;
Begin
Write('Nhap x: '); readln(x);
Write('Nhap y: '); readln(y);
If x=y then writeln('Khong the thuc hien yeu cau');
If x>y then writeln('Sap xep theo gia tri tang dan: ',y,',',x);
If x<y then writeln('Sap xep theo gia tri tang dan: ',x,',',y);
Readln;
End.
chỉ cần bạn cố gắng học tin và làm bài tập thật nhiều là bạn sẽ giỏi thôi
bài 1:
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a>b then writeln('so lon nhat trong hai so ',a,' va ',b,' la: ',a);
if a<b then writeln('so lon nhat trong hai so ',a,' va ',b,' la: ',b);
if a=b then writeln('khong co so lon nhat trong hai so ',a,' va ',b);
readln;
end.
bài 2:
uses crt;
var a,b:integer;
begin
clrscr;
repeat
write('a='); readln(a);
write('b='); readln(b);
if a=b then writeln('ban da nhap sai, yeu cau ban nhap lai');
until a<>b;
if a>b then writeln(a,' ',b);
if a<b then writeln(b,' ',a);
readln;
end.