1. Tính tổng các số âm và tổng các số dương của dãy. 2. Tính tích các số chẵn của dãy gồm 10 số nguyên. (Dùng kiểu mảng)

Question

1. Tính tổng các số âm và tổng các số dương của dãy.
2. Tính tích các số chẵn của dãy gồm 10 số nguyên.
(Dùng kiểu mảng)

in progress 0
Ngọc Hoa 6 years 2020-10-17T21:02:57+00:00 3 Answers 135 views 0

Answers ( )

  1. ThanhThu
    0
    2020-10-17T21:04:50+00:00
    Reply

    1.

    Uses Crt;

    Type Mang = ARRAY[1..50] Of Integer;

    Var A:Mang;

    N,i,S:Integer;

    Begin {Nhập mảng} Write(‘Nhap N=’);

    Readln(N);

    For i:=1 To N Do

    Begin Write(‘A[‘,i,’]=’);

    Readln(A[i]);

    End;

    {Tính tổng}

    S:=0; For i:=1 To N Do

    If A[i]<0 Then S:=S+A[i]*A[i];

    {In kết quả ra màn hình}

    Writeln(‘S= ’, S);

    Readln;

    End.

    2.

    program bt; 
    var a:array[1..1000] : integer; 
    i,n,t:integer; 
    begin 
    write(‘nhap so phan tu cua mang’); 
    readln(n); 
    for i:=1 to n do 
    begin 
    write(‘phan tu thu ‘,i,’ : ‘); 
    readln(a[i]); 
    end; 
    for i:=1 to n do 
    t:= t + a[i] 
    write(‘tong cac phan tu trong mang la :’,t); 
    readln 
    end.

  2. Nick
    0
    2020-10-17T21:04:55+00:00
    Reply

    1.

    var n,i,d:longint;

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

    begin

    write(‘Nhap n: ‘); readln(n);

    for i:=1 to n do

    write(‘A[‘,i,’] = ‘); read(a[i]);

    for i:=1 to n if a[i] < 0 then then inc(d);

    writeln;

    write(‘So âm: ‘,d);

    readln;

    end.

  3. vankhanh
    0
    2020-10-17T21:05:04+00:00
    Reply

    Để tìm câu trả lời chính xác các em hãy tham khảo vao cua tinh tong các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!

Leave an answer

Browse

Giải phương trình 1 ẩn: x + 2 - 2(x + 1) = -x . Hỏi x = ? ( )