K
Khách
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.
26 tháng 3 2022
var A:Array [1..100] of integer;
n,i:byte;
begin
write('Trong day co so so hang la : n = '); readln(n);
for i:=1 to n do begin
write('A[',i,'] = ');
readln(A[i]);
end;
d:=d+1;
for i:=1 to n - 2 do if A[i] + A[i+2] = 2*A[i+1] then d:=d+1;
if d = n - 2 then write('Day la cap so cong') else ('Day khong phai la cap so cong');
readln
end.
NH
8
26 tháng 3 2022
Bài 1:
uses crt;
var a,i:integer;
begin
clrscr;
a:=0;
for i:=1 to 10 do a:=a+i;
writeln(a);
readln;
end.
B
B