Question

Câu 1: Nhập mảng A và tính tổng tất cả phần tử trong mảng đó ra màn hình

Câu 2: \(A=\frac{x^6}{x^3}+2\) . In kết quả của A ra màn hình biết x là số nguyên dương được nhập từ bàn phím

Answer 1

program bai1;

uses crt;

var i,n,T:longint;

A:array[1..10000] of longint;

begin

write('do dai cua day so,n='); readln(n);

write('nhap cac phan tu cua day so:');

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

T:=0;

for i:=1 to n do T:=T+a[i];

write('tong la:',T);

readln

end.

Answer 2

program bai2;

var A:real;

x:integer;

begin

write('nhap x='); readln(x);

A:=(x*x*x*x*x*x)/(x*x*x)+2;

writeln('A=',A);

readln

end.