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í 18/07/2021 By Ayla 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
uses crt;var a:array[1..20]of longint;i,n,s:longint;beginclrscr; write(‘Nhap so phan tu: ‘);readln(n); for i:=1 to n do begin write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]); end; s:=a[1]+a[n]; writeln(‘Tong cua phan tu dau va phan tu cuoi: ‘,s);readln;end. Trả lời
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