làm ở ARRAY nha AI GIÚP EM VOTE 5 SAO NHA Bài 1 : - Nhập 1 dãy số nguyên có N phần tử - Xuất ra màn hình dãy số vừa nhập - Tính tích các phần tử chia hết cho 5 trong dãy trên là xuất ra màn hình Bài 2 : - Nhập 1 dãy số nguyên có N phần tử - Xuất ra màn hình dãy số vừa nhập - Tính tổng các số nhỏ hơn hoặc = 5 có trong dãy trên và xuất ra màn hình. Bài 3 : - Nhập 1 dãy số nguyên có N phần tử - Xuất ra màn hình dãy số vừa nhập - Tính tổng bình phương các phần tử là số dương trong dãy và xuất ra màn hình

2 câu trả lời

Bài `1`

Program Hotboy ;

Uses crt;

Var A: array[1..100] of integer;

    n,i: integer ;

    s: longint;

Begin

Clrscr;

S:=1;

Write('Nhap n: ');

Readln(n);     

For i:=1 to n do

Begin

Write('A[',i,'] = ');

Readln(A[i]);

If A[i] mod 5 = 0 then s:=s*A[i];

End;

For i:=1 to n do Write(A[i],' ');

Write('Tich la',s);

Readln

End.

Bài `2`

Program Hotboy ;

Uses crt;

Var A: array[1..100] of integer;

    n,i: integer ;

    s: longint;

Begin

Clrscr;

S:=0;

Write('Nhap n: ');

Readln(n);     

For i:=1 to n do

Begin

Write('A[',i,'] = ');

Readln(A[i]);

If (A[i]<= 5 )then s:=s+A[i];

End;

For i:=1 to n do Write(A[i],' ');

Write('Tong la',s);

Readln

End.

Bài `3`

Program Hotboy;

Uses crt;

Var i,n:integer;

S:longint;

A:array[1..100] of integer;

Begin

clrscr;

S:=0;

 Write('nhap n nguyen duong tu ban phim ');

 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] >0) then

S:=S+sqr(A[i]);

Write(' Tong cac so la ',S);

Readln

End.

Bài 1:

Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
    n,i: longint;
    s: int64;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 5 = 0 then s:=s*A[i];
        End;

        For i:=1 to n do Write(A[i],' ');

        Writeln;
        Write('S = ',s);
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]<=5 then s:=s+A[i];
        End;
        For i:=1 to n do Write(A[i],' ');
        Writeln;
        Write('S = ',s);
        Readln
End.

Bài 3:

Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
    n,i: longint;
    s: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]>0 then s:=s+sqr(A[i]);
        End;
        For i:=1 to n do Write(A[i],' ');
        Writeln;
        Write('S = ',s);
        Readln
End.

Câu hỏi trong lớp Xem thêm

II. Choose the word or phrase that best completes each unfinished sentence below. 6. Radioactive pollution is increasing the increased use of radioactivity. A. as B. since C. because of D. because 7. Do you think there would be less conflict in the world if all people the same language? A. spoke B. speak C. had spoken D. will speak 8. Unless you all of my questions, I can’t do anything to help you. A. answered B. answer C. would answer D. are answering 9. Singapore is famous for its …………. streets and green trees. A. cleanliness B. cleanly C. cleaning D. clean 10. If someone into the store, smile and say, “May I help you?” A. comes B. came C. come D. should come 11. It was said that the fish died a powerful toxin in the sea water. A. because of B. because C. since D. as a result 12. “Here’s my phone number”. “Thanks. I’ll give you a call if I some help tomorrow” A. will need B. need C. would need D. needed 13. is the festival celebrated? – Every year. A. When B. How often C. How D. What 14. The death rate would decrease if hygienic conditions improved. A. was B. is C. were D. had been 15. On Christmas Eve, most big cities, especially London are _______ with coloured lights across the streets and enormous Christmas trees. A. decorated B. hang C. put D. made 16. If she him, she would be very happy. A. would meet B. will meet C. met D. should meet 17. Nga is a beautiful girl; ______ , she’s kind - hearted. A. therefore B. however C. moreover D. otherwise 18. If I had enough money, I abroad to improve my English. A. will go B. would go C. went D. should have go to 19. She has read interesting book. A. a B. an C. the D. Ø 20. If it convenient, let’s go out for a drink tonight. A. be B. is C. was D. were

9 lượt xem
1 đáp án
18 giờ trước