viết chương trình pascal nhập dãy số nguyên n phần tử từ bàn phím .tính và in ra màn hình tổng của các số dương

viết chương trình pascal nhập dãy số nguyên n phần tử từ bàn phím .tính và in ra màn hình tổng của các số dương

0 bình luận về “viết chương trình pascal nhập dãy số nguyên n phần tử từ bàn phím .tính và in ra màn hình tổng của các số dương”

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

    Bình luận
  2. program ct;

    uses crt;

    var S,i,n:integer;

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

    begin

    clrscr;

      write(‘nhap n:=’);readln(n);

        for i:=1 to n do

    begin

      write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

    end;

      S:=0;

        for i:=1 to n do

          if A[i]>0 then S:=S+A[i];

      writeln(‘tong cac so duong la:’,S);

    readln

    end.

    Bình luận

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