Câu 1: Khai báo biến mảng có tên bất kỳ gồm 10 phần tử. Mỗi phần tử lưu tên mỗi học sinh.
Câu 2: Giả sử có mảng có tên là A gồm 10 phần tử, viết lệnh để gán giá trị phần tử thứ nhất có giá trị là 4, phần tử thứ 10 có giá trị là 16.
Giúp mk với !!!
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.