Viết chương trình nhập vào mảng D là dãy số nguyên sau đó đưa ra màn hình các số dương trong dãy tổng các số âm

Viết chương trình nhập vào mảng D là dãy số nguyên sau đó đưa ra màn hình các số dương trong dãy tổng các số âm

0 bình luận về “Viết chương trình nhập vào mảng D là dãy số nguyên sau đó đưa ra màn hình các số dương trong dãy tổng các số âm”

  1. var s,i:longint;

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

    begin

    for i:=1 to 10 do

    begin

    write(‘Nhap phan tu thu ‘,i);

    read(a[i]);

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

    end;

    writeln;

    write(‘Tong la: ‘,s);

    readln

    end.

    Xin hay nhất

    Bình luận

Viết một bình luận