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.
Mọi người có thể giúp mk khôi phục cái này được ko. Mỗi khi mk mở nó đều ra notpad
https://www.youtube.com/watch?v=NUzLKQv9Jd8
Video này có hướng dẫn nè bn...vào xem lam như họ là đc...hầu mk cũng bị cái này rồi
mình đang cần gấp
begin
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
writeln('*****');
readin
end.
giải hộ em đc ko ạ
Program luy_thua;
Uses crt;
Var a, i, n: integer;
Begin
Write('Nhap co so a: '); readln(a);
Write('Nhap so mu n: '); readln(n);
For i:=1 to n do a:=a*a;
Writeln('Gia tri a luy thua n la: ', a);
Readln;
End.
thiếu hai dấu chấm phẩy ";" ở: 
sửa thành:
TB: real;
A: array [1..100] of real;
lại thiếu dấu chấm phẩy ở ba chỗ nữa lần lượt là:
và 
và 
Sửa lại thành:
readln (a[i]);
TB:=0;
TB:=TB/n;
Cần có thêm readln trên end. để dừng chương trình lại để xem.
4. program bai_4;
ues crt;
var
s,n,i:integer;
begin
clrscr;
write('nhap n:');readln(n);
s:=0;
for i:=1 to n do
if i (mod 2=0) then s:=s+1;
write('tong la:',s:7);
readln;
end.
5.program bai_5;
uses crt;
var
i,s,n:integer;
begin
clrscr;
write('nhap n :');readln(n);
s:=0;
for i:=1 to n do s:=s+1;
writer('tong la:',s);
readln;
end.
8.program bai_8;
uses crt;
var
A:=array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('nhap n=');readln(n);
for i:= 1 to n do
begin
write('A[',i,']=');readln(A[i]);
end;
for i:= 1 to n do write(A[i],' ');
max:=a[1];
for i:= 1 to n do
if a[i] mod> max then:=a[i];
write('gia tri lon nhat trong mang la:',max);
readln;
end.
https://www.youtube.com/watch?v=NUzLKQv9Jd8
bạn vào link này để xem hướng dẫn đi