1. Viết chương trình sử dụng biến mảng nhập vào một dãy số gồm 40 phần tử và in ra tổng các phần tử của dãy số đó 2. Viết chương trình sử dụng biến mả

0 bình luận về “1. Viết chương trình sử dụng biến mảng nhập vào một dãy số gồm 40 phần tử và in ra tổng các phần tử của dãy số đó 2. Viết chương trình sử dụng biến mả”

1. Hình ‘-‘

   

   Bình luận

2. C1:
   Uses Crt;
   Var a:array[1..40] of integer;
   i,S:integer;
   Begin
   Clrscr;
   For i:= 1 to 40 do
   Begin
   Write(‘Nhap a[‘,i,’] = ‘); Readln(a[i]);
   End;
   S:=0;
   For i:= 1 to 40 do S:=S+a[i];
   Write(‘Vay tong S o day so tren = ‘,S);
   Readln
   End.
   C2:
   Uses Crt;
   Var a:array[1..40] of integer;
   i,T:longint;
   Begin
   Clrscr;
   For i:= 1 to 40 do
   Begin
   Write(‘Nhap a[‘,i,’] = ‘); Readln(a[i]);
   End;
   T:=1;
   For i:= 1 to 40 do T:=T*a[i];
   Write(‘Vay tich o day so tren = ‘,T);
   Readln
   End.
   *Nhớ tick và chọn làm ctrl hay nhất giúp mình nha! Thanks :333
   * Hỏi gì thì comment bên dưới nhá! 😀

   Bình luận