program bai1;

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

i,n,max:longint;

begin

wrtie('N= ');readln(n);

for i:=1 to n do

begin

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

readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

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

writeln('So lon nhat la ',max);

write('Vi tri la ');

for i:=1 to n do

if a[i]=max then write(i,' ');

readln

end.

Bùi Quang SangTrương Quang DũngThảo Phương

cái j vậy bn Nguyễn Hồng Hạnh

tt

tam ngọc biển phức hiền( t đéo biết làm)

program bai1;

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

i,n,s:longint;

begin

wrtie('N= ');readln(n);

for i:=1 to n do

begin

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

readln(a[i]);

end;

s:=0;

for i:=1 to n do

if a[i] mod 2=1 then s:=s+a[i];

wrtie('s= ',s);

readln

end.

Câu 1:

Khái niệm:

Định dạng văn bản là thay đổi kiểu dáng,bố trí của các thành phần trong văn bản.

Câu2:

+Thao tác chèn ảnh vào văn bản là:

-Đưa con trỏ soạn thảo đến vị trí cần chèn

-Chọn lệnh Picture trên dải lệnh Insert

-Chọn mục lưu ảnh

-Chọn tệp hình ảnh

-Nháy Insert

+Thao tác chèn bảng vào văn bản là:

-Chọn Insert chọn Table

-Kéo thả chuột để chọn số hàng,số cột cho bảng

Câu 4:
* Lợi ích của việc chèn ảnh vào văn bản là:

+Chèn hình ảnh vào văn bản làm cho nội dung của văn bản trực quan,sinh động,dễ hiểu,dễ thu hút người xem,...

+Có thể chèn nhiều hình ảnh khác nhau vào bất kì vị trí nào trong văn bản.

*Lợi ích của việc chèn bảng vào văn bản là:
+Nội dung được trình bày cô đọng dưới dạng bảng giúp dễ hiểu,dễ so sánh.

~~~~~~~~~~~~~~~~~~Còn lại tự làm(^-^)~~~~~~~~~~~~~~~~~~~~~

Program ct;

Var i,n,so le, so chan:integer;

B:Array[1..n] of integer;

Begin

Write('n=');Readln(n);

For i:=1 to n do begin Write('B[',i,']=');

Readln(B[i]);

End;

For i:=1 to n do Begin

if B[i] mod 2 <>0 then writeln('so le , ' );

If B[i] mod 2=0 then writeln('so chan ,' );

End;

Readln

End.

Lời giải:

Bài 1 :

a) var A : array[1..100] of real ;

b) var B : array[1..20] of integer ;

c) A[7] := 8 ;

Bài 2 :

program hotrinhoc ;

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

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

readln

end.

Bài 3 :

program hotrinhoc ;

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

i,n: integer ;

begin

write('Co tat ca so ban hoc sinh la'); readln(n);

write('Nhap diem mon tin cua cac ban');

for i:= 1 to n do

begin

write('Ban thu ',i,':'); readln(a[i]);

end;

readln

end.

Bài 4 : a,b giống bài 3

c)

program hotrinhoc ;

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

i,n,tong : integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

tong:=0;

for i:= 1 to n do

if a[i] > 0 then tong:=tong+1;

write('Ket qua la',tong);

readln

end.

Bài 5: a và b tương tự bài 3

c+d )

program hotrinhoc ;

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

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

for i:= 1 to n do

c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);

d) if i mod 2= 1 then write('Cac so le cua mang la:',i);

readln

end.