viết chương trình cho phép người dùng nhập vào các số nguyên tùy thích cho tới khi nào chán thì thôi. xuất ra màn hình tổng các số đã nhập vào

0 bình luận về “viết chương trình cho phép người dùng nhập vào các số nguyên tùy thích cho tới khi nào chán thì thôi. xuất ra màn hình tổng các số đã nhập vào”

1. • trangthao118

   program ct; SO NHAP VAO

   uses crt;

   var i,n,s:integer;

   A:array[1..100] of integer; SO NHAP VAO

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

   end;

   s:=1

   for i:=1 to n do s:=s+A[i];

   write

   readln

   end.   

   Bình luận

2. program ct;

   uses crt;

   var i,n,s: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 s:=s+A[i];

   write(‘tong la:’,s);

   readln

   end.   

   Bình luận