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.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
writeln(tb/n:4:2);
readln;
end.
program CT_dautien;
uses crt;
var
begin
clrscr;
writeln('moi nhap diem'); readln(x);
if x>= 8.0 then write(x, ' la loai gioi');
if x>=6.5 then write(x, ' la loai kha');
if x>=5.0 then write(x, ' la loai trung binh');
if x>=3.4 then write(x, ' la loai yeu');
if x<3.4 then write(x, ' la loai kem');
readln
end.
program in_mang;
uses crt;
var i,n,max:longint;
a:array[1..100]of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('cac phan tu chan:');
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:3);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('max cua day la:',max);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
program BaiTap;
var
A: array[1..150] of integer;
N, i, sum: integer;
begin
write('Nhap so phan tu cua day A (N <= 150): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
writeln('Day so vua nhap la:');
for i := 1 to N do
write(A[i], ' ');
writeln;
sum := 0;
for i := 1 to N do
if A[i] mod 2 = 0 then
sum := sum + A[i];
writeln('Tong cac phan tu chan trong day la: ', sum);
readln;
end.
Program HOC24;
var i,n: integer;
a: array[1..3200] of integer;
begin
write('Nhap gioi han cua day: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu :',i,': '); readln(a[i]);
end;
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln
end.
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
1. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do write(i:3);
readln;
end.
2. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2 = 0) then write(i:3);
readln;
end.
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????
câu d/ thì vượt quá trình độ cấp 2!
đề thi 1 tiết thực hành !!!
BT1
const
nhap='BT1.inp';
xuat='BT1.out';
var
s,toan,tin,van:real;
t:integer;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
read(toan,tin,van);
s:=(toan+tin+van)/3;
write(s:0:1);
if s<5 then t:=1;
if (s>=5)and (s<6.5) then t:=2;
if (s>=6.5) and (s<8) then t:=3;
if (s>=8) then t:=4; writeln;
if t=1 then write('hsy');
if t=2 then write('hstb');
if t=3 then write('hstb');
if t=4 then write('hsg');
close(input); close(output);
end.
BT2
a)const
nhap='BT2a.inp';
xuat='BT2a.out';
var
s,n,i:longint;
a:array[1..100]of longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
readln(n);
s:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2=0 then s:=s+a[i];
end;
write(s);
close(input); close(output);
end.
b)const
nhap='BT2b.inp';
xuat='BT2b.out';
var
n,i,m,t:longint;
a,b,k:array[1..100]of longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
readln(n); t:=1; m:=1;
for i:=1 to n do
begin
read(a[i]);
if a[i] mod 2=0 then begin k[t]:=a[i]; t:=t+1; end;
if a[i] mod 2<>0 then begin b[m]:=a[i]; m:=m+1; end;
end;
for i:=1 to t-1 do
write(k[i],' '); writeln;
for i:=1 to m-1 do
write(b[i],' ');
close(input); close(output);
end.
c)const
nhap='BT2c.inp';
xuat='BT2c.out';
var
i,n,min,max:longint;
a:array[1..100]of longint;
begin
assign(input,nhap); reset(input);
assign(output,xuat); rewrite(output);
readln(n);
for i:=1 to n do
read(a[i]);
min:=a[1]; max:=a[1];
for i:=1 to n do
begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln(min); writeln(max);
close(input); close(output);
end.
Câu d và câu e mk sẽ gửi sau nha !
phải có giới hạn các số nguyên tố từ đâu đến đâu chứ