Tin học Viết chương trình thực hiện ccas yêu cầu sau:( sử dụng lệnh array..,If…) +In ra các giá trị phần tử vừa nhập +In ra màn hình tổng số lẻ của dãy vừa 13/07/2021 By Eliza Viết chương trình thực hiện ccas yêu cầu sau:( sử dụng lệnh array..,If…) +In ra các giá trị phần tử vừa nhập +In ra màn hình tổng số lẻ của dãy vừa nhập
program bt; var a:array[1..1000] of integer; i,n,t:integer; begin write(‘nhap so phan tu cua mang’); readln(n); for i:=1 to n do begin write(‘phan tu thu ‘,i,’ : ‘); readln(a[i]); end; for i:=1 to n do t:= t + a[i] ;write(‘tong cac phan tu trong mang la :’,t); readln end. Trả lời
program minh;var a:array[1..1000] of integer;i,n,t:integer;beginwrite(‘so pt’);readln(n);for i:=1 to n dobeginwrite(‘,i,’ : ‘);readln(a[i]);end;for i:=1 to n dot:= t + a[i] ;write(t);readlnend. Trả lời