Tin học Viết chương trình tổng các số lớn hơn 5 Không spam, copy. Làm đàng hoàng, đầy đủ, chính xác 14/07/2021 By Josie Viết chương trình tổng các số lớn hơn 5 Không spam, copy. Làm đàng hoàng, đầy đủ, chính xác
program phuongt;uses crt; var A: array[1..500] of integer; i, n, s: integer;begin clrscr; write(‘Nhap n = ‘); readln(n); s:=0; for i:=6 to n do s:=s+i; write(‘Tong = ‘, s); readlnend. Trả lời
program lon_hon_5; uses crt; var A:array[1..1000] of integer; n,i,t:integer; begin clrscr; write(‘Nhap so luong phan tu: ‘); readln(n); t:=0; for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); if A[i]>5 then t:=t+A[i]; end; write(‘Tong cac so lon hon 5 la: ‘,t); readln; end. Trả lời