Tin học viết chương trình nhập vào một mảng tính tổng các số vừa nhập trong mảng 19/07/2021 By Parker viết chương trình nhập vào một mảng tính tổng các số vừa nhập trong mảng
program phuongt;uses crt; var A: array[1..500] of integer; i, s, n: integer;begin clrscr; write(‘Nhap n = ‘); readln(n); s:=0; for i:=1 to n do begin write(‘A[‘, i, ‘] = ‘); readln(A[i]); s:=s+A[i]; end; write(‘Tong = ‘, s); readlnend. Trả lời
Program nhap; Uses crt; Var a:array[1..1000]of longing; i,S:byte; Begin Clrscr; For i:=1 to 1000 do Begin Write (‘nhap vao 1 mang bat ki’); Readln(a[i]); End; S:=0; For i:=1 to 1000 do S:=S+a[i]; Write (‘tong cua so hang,S’); Readln End. Trả lời