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..50]of integer;
n,i,dem,tbc:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chan la: ');
dem:=0;
tbc:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i]:4);
inc(dem);
tbc:=tbc+a[i];
end;
writeln;
writeln('So phan tu chan la: ',dem);
writeln('Trung binh cong cua cac so chan trong day la: ',tbc/dem:4:2);
readln;
end.
Bạn viết đề cho đầy đủ
nhập vào dãy số nguyên xong in ra 6 số , thì 6 số đó ở những ví trị nào? bạn phải nêu rõ. Ngày tháng năm sinh cũng phải nêu là số nguyên hay là ở dạng xâu luôn chứ.
Lần sau đề không rõ yêu cầu mình sẽ không cho hiển thị nhé, mình sẽ ib để bạn sửa đề đầy đủ
uses crt;
var a:array[1..500]of integer;
i,n,t:integer;
{----------------------chuong-trinh-con------------------------}
function kiem_tra(x:integer):boolean;
begin
if x mod 2<>0 then kiem_tra:=true
else kiem_tra:=false;
end;
{----------------------chuong-trinh-chinh----------------------}
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=500);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
t:=0;
for i:=1 to n do
if kiem_tra(a[i])=true then t:=t+a[i];
writeln('Tong cac so le la: ',t);
readln;
end.
uses crt;
var a:array[1..300]of integer;
i,n,dem,kt,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
t:=abs(a[2]-a[1]);
kt:=0;
for i:=1 to n do
if t<>abs(a[i]-a[i-1]) then
begin
kt:=1;
break;
end;
if kt=0 then writeln('Day la cap so cong')
else writeln('Day khong la cap so cong');
readln;
end.
program boi_cua_3;
uses crt;
var a:array[1..100] of integer;
n,i:byte;
min:integer;
begin
clrscr;
write('nhap so luong phan tu cua mang: ');
readln(n);
for i:= 1 to n do
begin
write('nhap phan tu thu [',i,']= ');
readln(a[i]);
end;
min:=a[1];
for i:= 1 to n do
if min > a[i] then min:=a[i];
writeln('gia tri nho nhat cua day la: ',min);
readln
end.
nếu thay inc(n) đầu tiên thành for i:= 1 to n do read (f1,a[n]) thì có sai ko vậy
uses crt;
const fi='bai.inp';
var f1:text;
m,n:real;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('m='); readln(m);
writeln(f1,'m=',m:4:2);
write('n='); readln(n);
writeln(f1,'n=',n:4:2);
writeln(f1,m:4:2,'+',n:4:2,'=',m+n:4:2);
close(f1);
readln;
end.