Lê Kiên's Profile

nhập mảng gồm A[1,2,3,4,..,n], hãy viết chương trình chia mảng thành k mảng nhỏ sao cho tổng của các mảng đó bằng nhau.(n và k là hai số được nhập từ bàn phím)

ý B nhé

mô tả:

B1:nhập n;

B2:tạo mảng và nhập phần tử trong mảng a

B3:xét các phần tử trong mảng và đưa ra điều kiện: nếu a[i]<0 thì sa:=sa+a[i] và ngược lại với tổng số dương

B4:in ra kết quả và kết thức chương trình

chương trình:

uses math;

var sa,sd,n,i:longint;

a:array[1..1000] of longint;

 

begin

readln(n);

for i:=1 to n do readln(a[i]);

sd:=0;

sa:=0;

for i:=1 to n do

begin

if a[i]<0 then sa:=sa+a[i];

if a[i]>0 then sd:=sd+a[i];

end;

writeln(sa,' ',sd);

readln;

end.

CHÚC BẠN THÀNH CÔNG =)

 

 

 

 

1B

2C

3C

4A

5C

6B

Tự luận

uses math;

var n,s,i:longint;

begin

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

uses math;
var  n,k,i,dem:longint;
        a:array[1..1000] of longint;
begin
        readln(n,k);
        for i:=1 to n do readln(a[i]);
        writeln;
        dem:=0;
        for i:=1 to n do
                begin
                        write(a[i],' ');
                        if a[i]=k then dem:=dem+1;
                end;
        writeln(dem);
        readln;
end.

uses math;

var n,i,dem:longint;

s:real;

        a:array[1..1000] of real;

begin

        readln(n);

        for i:=1 to n do readln(a[i]);

        s:=0;

        for i:=1 to n do

                if a[i]<0 then

                        begin

                                dem:=dem+1;

                                s:=s+a[i];

                        end;

        writeln(s/dem:0:2);

        readln;

end.

uses math;
var m,i,s:longint;
begin
        readln(m);
        s:=0;
        for i:=1 to m do
                if (i mod 3=0) or (i mod 5=0 ) then
                        s:=s+i;
        writeln(s);
        readln;
end.