Câu 1 -
Thuật toán:
Bước 1: Nhập n
Bước 2:
2.1: Nếu n mod 2 = 0 thì thông báo chẵn và thực hiện bước 3
2.2: Nếu n mod 2 <> 0 thì thông báo lẻ và thực hiện bước 3
Bước 3: Kết thúc chương trình
program ct;
uses crt;
var i,n:integer;
begin
clrscl;
write('nhap so:'); readln(n);
if n<=1 then writeln('N khong phai so nguyen to') else
begin
i:=2'
while (n mod i<>0) do i:=i+1;
if i=n then writeln(n,' la so nguyen to') else writeln(n,' khong phai so nguye to');
end;
readln;
end.
Câu 2 uses crt;
var i,n,max,min,d1,d2: integer;
a: array [1..100] of integer;
begin
clrscr;
write('Nhap so ban trong lop: '); readln(n);
for i:=1 to n do begin
write('Diem ban thu ',i,' : ');
readln(a[i]); end;
max:=a[1]; min:=a[1];
for i:=2 to n do begin
if max<a[i] then begin max:=a[i]; d1:=i; end;
if min>a[i] then begin min:=a[i]; d2:=i; end;
end;
writeln('Ban thu ',d1,' co diem cao nhat bang: ',max);
writeln('Ban thu ',d2,' co diem thap nhat bang: ',min);
readln;
end.
Câu 3
Bước 1: Nhập n và dãy A[1..n]
Bước 2: s ← 0; pt ← 0;
Bước 3: i ← 1 to n do
Nếu A[i]>0 thì s ← s + A[i]; pt ← pt + 1
Bước 4: tbc ← s/pt
Bước 5: Xuất kết quả (tbc)
