giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1,4,7,2,6. Khi thục hiện câu lệnh sau:
tong:=0; For i:=1 to 5 do tong :=tong+A[i];
Tính giá trị của biến tong
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.