Tin học Viết chương trình nhập vào n số nguyên từ bàn phím, hãy tính và in ra màn hình tổng các số vừa nhập( mọi người giúp mình vs, mình chưa học bài mảng nê 18/07/2021 By Amara Viết chương trình nhập vào n số nguyên từ bàn phím, hãy tính và in ra màn hình tổng các số vừa nhập( mọi người giúp mình vs, mình chưa học bài mảng nên mọi người đừng nhập mảng vào chương trình nhé)
var a: integer; n, i: byte; s: longint; Begin Write(‘n = ‘); readln(n); S:=0; For i:=1 to n do Begin Write(‘nhap so thu ‘, i, ‘: ‘); Readln(a); S:=s+a; End; Write(‘tong: ‘, s); Readln End. Trả lời
program ct; uses crt; var i,n,T: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; T:=0; for i:=1 to n do T:=T+a[i]; writeln(‘tong cac so la:=’,T); readln end. Trả lời