HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
khá khó khăn trong việc lập trình
CT2:
Program Max_10;
Uses crt;
Var: i,Max:integer;
a: array[1..10] of integer;
Begin
Clrscr;
For i:= 1 to 10 do
Write('Hay nhap so thu ',i,' : '); Readln(a[i]);
Max:= a[1];
For i:= 2 to 10 do
if a[i] > Max then Max:= a[i];
Writeln('So lon nhat trong 10 phan tu ban vua nhap la ',Max);
Readln;
End.
1/ Viết chương trình nhận biết số n bất kì nhập vào từ bàn phím có phải là số nguyên tố hay không.
2/ S= 1+5+9+....+m. Viết chương trình tìm n để S nhỏ nhất lớn lớn m.