– nhập vào 1 mảng gồm N số nguyên, sau đó in ra màn hình:
+ Các số chẵn hoặc lẻ
+ Số lớn nhất hoặc nhỏ nhất
– nhập vào 1 mảng gồm N số nguyên, sau đó in ra màn hình: + Các số chẵn hoặc lẻ + Số lớn nhất hoặc nhỏ nhất
By Valerie
By Valerie
– nhập vào 1 mảng gồm N số nguyên, sau đó in ra màn hình:
+ Các số chẵn hoặc lẻ
+ Số lớn nhất hoặc nhỏ nhất
Số chẵn:
program so_chan;
uses crt;
var A:array[1..1000] of integer;
n,i:integer;
begin
clrscr;
write(‘Nhap N: ); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
write(‘Cac so chan la: ‘);
for i:=1 to n do
if A[i] mod 2=0 then write(A[i],’ ‘);
readln;
end.
Số lẻ:
program so_le;
uses crt;
var A:array[1..1000] of integer;
n,i:integer;
begin
clrscr;
write(‘Nhap N: ); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
write(‘Cac so le la: ‘);
for i:=1 to n do
if A[i] mod 2=1 then write(A[i],’ ‘);
readln;
end.
Lớn nhất:
program lon_nhat;
uses crt;
var A:array[1..1000] of integer;
n,i,max:integer;
begin
clrscr;
write(‘Nhap N: ); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
write(‘So lon nhat la: ‘,max);
readln;
end.
Nhỏ nhất:
program nho_nhat;
uses crt;
var A:array[1..1000] of integer;
n,i,min:integer;
begin
clrscr;
write(‘Nhap N: ); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
min:=A[1];
for i:=2 to n do
if A[i]>min then min:=A[i];
write(‘So nho nhat la: ‘,min);
readln;
end.
* Với kiểu mảng in ra các số lẻ:
Uses Crt;
Var a:array[1..1000] of integer;
i,n:integer;
Begin
Clrscr;
Write(‘ Nhap so ptu N = ‘); Readln(n);
Writeln;
For i:=1 to n do
Begin
Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
End;
WRITE(‘ Cac so le trong day tren la: ‘);
For i:=1 to n do If a[i] mod 2 = 1 then write(a[i]:3);
Readln
End.
*Với kiểu mảng in ra các số chẵn:
Uses Crt;
Var a:array[1..1000] of integer;
i,n:integer;
Begin
Clrscr;
Write(‘ Nhap so ptu N = ‘); Readln(n);
Writeln;
For i:=1 to n do
Begin
Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
End;
WRITE(‘ Cac so chan trong day tren la: ‘);
For i:=1 to n do If a[i] mod 2 = 0 then write(a[i]:3);
Readln
End.
* Với kiểu mảng in ra số lớn nhất:
Uses Crt;
Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Clrscr;
Write(‘ Nhap so ptu N = ‘); Readln(n);
Writeln;
For i:=1 to n do
Begin
Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
End;
max:=a[1];
For i:=2 to n do If max<a[i] then max:=a[i];
Write(‘ So lon nhat trong day do la: ‘,max:2);
Readln
End.
* Với kiểu mảng in ra số nhỏ nhất:
Uses Crt;
Var a:array[1..1000] of integer;
i,n,min:integer;
Begin
Clrscr;
Write(‘ Nhap so ptu N = ‘); Readln(n);
Writeln;
For i:=1 to n do
Begin
Write(‘ Nhap a[‘,i,’] = ‘); Readln(a[i]);
End;
min:=a[1];
For i:=2 to n do If min>a[i] then min:=a[i];
Write(‘ So nho nhat trong day do la: ‘,min:2);
Readln
End.