viết chương trình tính tổng các giá trị trên mảng một chiều có 10 phần tử có giá trị trong khoảng 1 đến 200

0 bình luận về “viết chương trình tính tổng các giá trị trên mảng một chiều có 10 phần tử có giá trị trong khoảng 1 đến 200”

1. program oken;

   uses crt;

   var a: array [1..10] of byte;

         i,s:longint;

   begin

   clrscr;

   writeln(‘nhap gia tri cua 10 phan tu’);

   for i:=1 to 10 do

   begin

   write(‘a[‘,i,’]: ‘); readln(a[i]);

   s:=s+a[i];

   end;

   writeln(‘Tong cua 10 phan tu : ‘,s);

   readln;

   end.

   Bình luận

2. program mang1c;
   uses crt;
   var i:integer;
      A:array[1..10] of integer;
      s:integer;
   BEGIN
   clrscr;
   writeln(‘Nhap mang A co cac phan tu trong khoang 1-200’);
   for i:=1 to 10 do
    begin
     write(‘A[‘,i,’]= ‘); readln(A[i]);
     if (A[i]<1)or(A[i]>200) then
     begin
      write(‘Nhap lai A[‘,i,’]= ‘); readln(A[i]);
     end;
    end;
    s:=0;
   for i:=1 to 10 do
    s:=s+A[i];
   writeln(‘Tong cac phan tu cua mang la:’,s);
   readln
   END.

   Bình luận