viết chương trình nhập vào bàn phím số nguyên dương N 10

14/08/2021 Bởi Josie

0 bình luận về “viết chương trình nhập vào bàn phím số nguyên dương N 10<N<100 in ra tổng hai dãy số của N”

1. 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

   S:=S+A[i];

   Write(‘ Tong cac so nguyenduong la ‘,S);

   Readln

   End.

   Bình luận

2. uses crt;
   var                 
   array[1..100] of integer;
   if: boolean;
   N, i„ l: integer; so_nt, so_chan: integer;
   begin
   for i := -1000 to 1000 do if i>0 then NT:= false;
   so_chan:=0; so_nt:=0;
   {Nhap vao)

   repeat

   write(‘So phan tu cua day A (N<=100), N= *);

   readln(N);

   until (N>0) and

   (N<=100);

    for i:= 1 to N do

   begin

   Bình luận