Question

a. Viết chương trình nhập vào 1 mảng có b (b<100) phần tử và tính tổng các phần tử trong mảng đó?

Giúp tui với

Answer 1

var a:array[1..100] of real;

i,b:integer;

s:real;

begin

write('Nhap so luong phan tu ');readln(b);

for i:=1 to b do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

end;

write('Tong cac phan tu la ',s:10:2);

readln

end.

Answer 2

(b<100)

Answer 3

Uses crt;

var i,n,t: longint;

b: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

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

writeln(t:1:1);

readln;

end.