1 viết Chương trình nhập số nguyên n
A) in ra tổng các số từ một đến N
B) in ra các số chẵn số lẻ
2 viết chương trình nhập dậy số nguyên gồm N số in ra số lớn nhất nhỏ nhất
1 viết Chương trình nhập số nguyên n A) in ra tổng các số từ một đến N B) in ra các số chẵn số lẻ 2 viết chương trình nhập dậy số nguyên gồm N số
By Autumn
1) program abc;
var
n,i,s:integer;
readln(n); s:=0;
for i:=1 to n do
s:=s+i;
writeln(‘cac so chan:’);
for i:=1 to n do
if i mod 2 =0 then write(i,’ ‘);
writeln(‘cac so le:’);
for i:=1 to n do if i mod 2 <>0 then write(i,’ ‘);
writeln;
end.
2)
var
n,max,min,i:integer;
a:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; min:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln(‘so lon nhat ‘,max);
writeln(‘so nho nhat’,min);
end.
1. program vct;
use crt;
var i,n,s:integer;
begin
writeln(‘nhap n);readln(n);
for i:= 1 to do
s:=s+i;
writeln(‘tong cac so nguyen: ‘,s);
for i:= 1 to n do
if i mod 2 = 0 then writeln(‘ so chan la: ‘,i)
else writeln(‘so le la: ‘,i);
readln;
end.
2. program vct;
uses crt;
var i,n,max,min:integer;
begin
writeln(‘nhap n’);readkn(n);
max:=1; min:=1;
for i:= 1 to n do
begin
if i> max then max:=i;
if i<min then min:=i;
end;
writeln(‘so lon nhat la: ‘,max);
writeln(‘so nho nhat la: ‘,min);
readln;
end.