Question

Câu 1 : Viết chương trình nhập vào số tự nhiên n. Sau đó tính và in ra màn hình sau :

S=1+1/2+1/3+. . . + 1/n

Câu 2 : Nhập vào một dãy số gồm n phần tử là các số nguyên ( Số n nhập từ bàn phím ) . Tính tổng phần tử lớn nhất và phần tử nhỏ nhất trong dãy số vừa nhập

Em cần gấp ạ cảm ơn

Answer 1

Câu 1:

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('Ket qua la: ',s:4:2);

readln;

end.

Câu 2:

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Tong cua phan tu lon nhat va phan tu nho nhat la: ',max+min);

readln;

end.

Answer 2

Câu 1:

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('Ket qua la: ',s:4:2);

readln;

end.

Câu 2:

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Tong cua phan tu lon nhat va phan tu nho nhat la: ',max+min);

readln;

end.