bài 1 nhé
uses crt;
var
a:array[1..100] of integer;
i,n,s,dem:integer;
trungbinh:real
begin
clrscr;
writeln('nhap so phan tu cua mang');
readln(n);
for i:=1 to n do begin
writeln('nhap so thu',i);
readln(a[i]);
end;
s:=0;
dem:=0;
for i:=1 to n do begin
if a[i] > 0 then begin
dem:=dem+1;
s:=s+a[i];
end;
end;
trungbinh:=s/dem;
writeln('so so duong la: ',dem);
writeln('trung binh cong cua chung la: ',trungbinh);
readln;
end.Bai 2
uses crt;
var
a:array [1..100] of integer;
n,i,x:integer;
begin
clrscr;
write('so phan tu cua mang: ');
readln(n);
for i:=1 to n do begin
write('hay nhap phan tu thu ',i);
readln(a[i]);
end;
writeln('x= '); readln(x);
a[3] :=x;
for i:= 1 to n do begin
if a[i] <0 then a[i]:=0;
end;
for i:= 1 to n do
writeln(' ',a[i]);
readln;
end.bài 1 nhé
Mã:program baitap; var a:array[1..100] of integer; i,n,dem,s:integer; tb:real; begin writeln('nhap so phan tu cua mang'); readln(n); for i:=1 to n do begin writeln('a[',i,']='); readln(a[i]); end; s:=0; dem:=0; for i:=1 to n do begin if a[i] >0 then writeln(a[i]); s:=s+a[i]; dem:=dem+1; end; tb:=s/dem; writeln('trung binh cong cua cac so duong la : ',tb:8:0); readln; end.
Đúng naz in ra 1 file mớiuses crt;
var
a,b,x,z,m,n: integer;
f,g:text;
begin
clrscr;
assign(f,'input.txt');
reset(f);
readln(f,x,y);
readln(f,m,n);
close(f);
assign(g,'output.txt');
rewrite(g);
a:=x+y;
b:=m+n;
writeln(g,a);
writeln(g,b);
close(g);
end.Nhập 1 phép tính là sao hả bạn? Là mình tự tính một phép tính bất kì à?
(