Viết chương trình nhập vào 1 mảng có n(n<50) phần tử và tính tổng các phần tử trong mảng đó
0 bình luận về “Viết chương trình nhập vào 1 mảng có n(n<50) phần tử và tính tổng các phần tử trong mảng đó”
uses crt; var n,i,s:longint; a:array[1..1000000] of longint; begin clrscr; readln(n); for i:=1 to n do begin read(a[i]); inc(s,a[i]); end; writeln(s); readln end.
uses crt;
var n,i,s:longint; a:array[1..1000000] of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
read(a[i]);
inc(s,a[i]);
end;
writeln(s);
readln
end.
Picture!!!