1, Viết chương trình tính tổng các số từ 1-N.
N=10 => Kết quả=55
2, Viết chương trình nhập 1 dãy số.In ra màn hình số lớn nhất
Mong mọi người giúp mình !
1, Viết chương trình tính tổng các số từ 1-N.
N=10 => Kết quả=55
2, Viết chương trình nhập 1 dãy số.In ra màn hình số lớn nhất
Mong mọi người giúp mình !
B1:
Uses Crt;
Var i,n,S:integer;
Begin
Clrscr;
Write(‘Nhap N= ‘); Readln(n);
S:=0;
For i:= 1 to n do S:=S+i;
Write(‘Vay tong cua day so tu 1 den ‘ ,n,’ la: ‘,S);
Readln
End.
B2.1: Kiểu mảng real:
Uses Crt;
Var a:array[1..1000] of integer;
max,i,n:integer;
Begin
Clrscr;
Repeat
Write(‘Nhap so ptu N vao: ‘); Readln(n);
Until n>0;
For i:= 1 to n do
Begin
Write(‘Nhap a[‘,i,’] vao:’); Readln(a[i]);
End;
max:=a[i];
Write(‘So lon nhat trong day so la: ‘,max);
Readln
End.
B2.2: Kiểu mảng fake
Uses Crt;
Var max,X,i,n:integer;
Begin
Clrscr;
Repeat
Write(‘Nhap so ptu N vao: ‘); Readln(n);
Until n>0;
For i:= 1 to n do
Begin
Write(‘Nhap X’,i,’ vao:’); Readln(X);
End;
max:=X;
Write(‘So lon nhat trong day so la: ‘,max);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!! Đa tạ ;33
*p/s: Hỏi và đáp, comment bên dưới
Câu 1:
program Cau_1;
uses crt;
var n,i,T: integer;
Begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do T:=T+i;
write(‘Tong cac so tu 1 den ‘,n,’ = ‘,T);
readln
End.
Câu 2:
program Cau_2;
uses crt;
var A:array [1..500] of integer;
n,i,max: integer;
Begin
clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
max:=1;
for i:=1 to n do
begin
write(‘A[‘,i,’]=’); readln(A[i]);
if max<A[i] then max:=A[i];
end;
write(‘So lon nhat: ‘,max);
readln
End.