Tin học VCT: khai báo biến mảng gồm 20 phân tử Biến ( ) Thân CT Nhập giá trị cho biến mảng gồm n phân tử ( nhập từ bàn phím ) Tính tổng của phân 18/07/2021 By Sarah VCT: khai báo biến mảng gồm 20 phân tử Biến ( ) Thân CT Nhập giá trị cho biến mảng gồm n phân tử ( nhập từ bàn phím ) Tính tổng của phân tử đầu và phân tử cuối sau đó xuất tổng ra màn hình
var a: array[1..20] of integer; n, i: byte; s: longint; Begin Write(‘n = ‘); readln(n); For i:=1 to n do Begin Write(‘a[‘, i, ‘] = ‘); readln(a[i]); End; S:=a[1] + a[n]; Write(‘tong: ‘, s); Readln End. Trả lời
program bai_tap; uses crt; var A:array[1..20] of integer; n,i:byte; t:integer; begin clrscr; write(‘Nhap n: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); end; if n=1 then t:=A[1] else t:=A[1]+A[n]; write(‘Tong phan tu dau va phan tu cuoi la: ‘,t); readln; end. Trả lời