0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1031
1059
uses crt;
var s,i: longint;
var k: array [1..100] of longint;
begin
clrscr;
repeat
i:=i+1;
write ('nhap mang [',i,']: '); readln (k[i]);
s:=s+k[i];
until i=100;
writeln ('tong cac phan tu trong mang la: ',s);
write ('cac phan tu trong mang la: ');
for i:=1 to 100 do
write (k[i],' ');
readln;
end.
có hình ảnh đó nha
đảm bảo 0 có lỗi
đúng 999999999999999%
Hãy giúp mọi người biết câu trả lời này thế nào?
2288
1724
uses crt;
var n,i,sum:longint;
a:array[1..100]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
inc(sum,a[i]);
end;
writeln(sum);
for i:=1 to n do write(a[i],' ');
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin