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)

Câu 1:

uses crt;
var n,i:longint;
begin
clrscr;
   write('Nhap N: ');readln(n);
   i:=2;
   while(n>1)and(n mod i<>0)do inc(i);
   if i=n then writeln('N la so nguyen to') 
      else writeln('N khong la so nguyen to');
readln
end.

Câu 2:

uses crt;
var i,n,max,min:longint; a:array[1..100000]of longint;
begin
clrscr;
   write('Nhap N: ');readln(n); 
   min:=high(longint);
   for i:=1 to n Do 
      begin
         write('Nhap diem hoc ki mon tin cua ban thu ',i,': ');readln(a[i]);
         if a[i]>max then max:=a[i];
         if a[i]<min then min:=a[i];
      end;
   writeln('Diem cao nhat: ',max);
   writeln('Diem thap nhat: ',min);
readln
end.

Câu 3:

uses crt;
var i,n,max,min:longint; a:array[1..100000]of longint;
begin
clrscr;
   write('Nhap N: ');readln(n); 
   min:=high(longint);
   for i:=1 to n Do 
      begin
         write('a[',i,']=');readln(a[i]);
         if a[i]>max then max:=a[i];
         if a[i]<min then min:=a[i];
      end;
   writeln('Gia tri lon nhat: ',max);
   writeln('Gia tri nho nhat: ',min);
readln
end.