Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a)Var z:array[1..1000] of longint;
n, i,S:longint;
Begin
S:=0;
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin S:=S + z[i];
End;
Writeln('Tong chan la ',S);
End.
b)
Var z:array[1..1000] of longint;
n, i, chan, le:longint;
Begin
S:=0;
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin write(z[i]:10);
Writeln('chan');
chan:=z[i];
End;
For i:=1 to n do if z[i] mod 2 = 0 then begin write(z[i]:10);
Writeln('chan');
chan:=z[i];
End;
If chan>le then writeln('So phan tu chan trong mang nhieu hon')
else writeln('So phan tu le trong mang nhieu hon');
End.
Cậu thử kiểm tra lại nhé!
Var z:array[1..1000] of longint;
n, i, min:longint;
Begin
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
min:= z[1];
End;
For i:=1 to n do begin if min>z[i] then min:=z[i];
End.;
Writeln('So nho nhat la ',min);
End.
Bạn thử kiểm tra lại nhé!
Var z:array[1..1000] of longint;
n, i, max:longint;
Begin
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
max:= z[1];
End;
For i:=1 to n do begin if max<z[i] then max:=z[i];
Writeln('So lon nhat la ',max);
End.
Bạn thử kiểm tra trên Pascal nhé.
uses crt;
var i,n,m:longint;
a:array[1..1000]of integer;
begin
write('nhap do dai cua day so:');readln(n);
for i:=1 to n do begin
write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);
if i=1 then m:=a[1]
else if a[i]>m then m:=a[i];
end;
write('gia tri lon nhat trong day so la:',m);
readln
end.
Mảng một chiều là một dãy hữu hạn các phần tử có cùng dữ liệu khi khai báo và cá phần tử này có chung một tên nhưng khác nhau bởi các chỉ số phân biệt vị trí trong mảng. Các phần tử trong mảng có thể chứa cùng một giá trị nhưng khác nhau về chỉ số. Ví dụ: A[i] = 10, A[j] = 10 chúng giống nhau về giá trị là chứa một số nguyên dương bằng 10 nhưng khác nhau về chỉ số khi i khácj. Để mô tả mảng 1 chiều cần xác định kiểu của các phần tử và cách đánh số các phần tử của nó.
1. Có mấy cách để định dạng kí tự? Đó là những cách nào?
- Có 2 cách để định dạng kí tự:
+ Định dạng bằng nút lệnh
+ Định dạng bằng hộp thoại FONT
2. Em hãy nêu các bước để chèn hình ảnh vào văn bản.
- Các bước để chèn hình ảnh vào văn bản:
+ Bước 1: Đưa con trỏ chuột đến vị trí cần chèn hình ảnh
+ Bước 2: Chọn Insert → Chọn Picture → Nháy chọn From File → Xuất hiện hộp thoại Insert Picture
+ Bước 3: Chọn hình ảnh cần chèn phù hợp
+ Bước 4: Chọn Insert
3. Để chọn hướng trang , em thực hiện như thế nào?
- Để chọn hướng trang, ta thực hiện:
+ Bước 1: Vào File → Page Setup → Xuất hiện hộp thoại Page Setup → Chọn Margins, trong đó:
__Portrait: hướng trang đứng
__Landscape: hướng trang nằm ngang
+ Bước 2: Chọn Ok để thực hiện hoặc Cancel để hủy bỏ
4. Liệt kê các thao tác cần thực hiện để thay thế một cụm từ trong cả văn bản.
- Các thao tác để thay thế một cụm từ trong cả văn bản:
+ Bước 1: Cho lệnh Edit → Replace → Hộp thoại Find and Replace xuất hiện
+ Bước 2: Gõ cụm từ cần thay thế vào ô Find what
+ Bước 3: Gõ cụm từ cần thay thế vào ô Replace with
+ Bước 4: Nháy chọn Find Next để tìm
+ Bước 5: Nháy Replace để thay thế
5. Hãy nêu các bước để tạo bảng trong văn bản.
- Các bước để tạo bảng trong văn bản:
+ Bước 1: Vào Table → Insert → Table → Xuất hiện hộp thoại Insert Table
+ Bước 2: Chọn số hàng, số cột của bảng
+ Bước 3: Chọn Ok
6. Hãy nêu các bước chèn thêm hàng cuối của bảng, chèn thêm một cột vào bảng
- Các bước chèn thêm hàng cuối của bảng:
+ Bước 1: Đưa con trỏ soạn thảo sang bên phải của bảng
+ Bước 2: Nhấn phím Tab
- Các bước chèn thêm một cột vào bảng:
+ Bước 1: Đưa con trỏ chuột vào ô bất kì
+ Bước 2: Vào Table → Insert
+ Bước 3: Chọn Column to the Left: để thêm cột về bên trái của ô mà con trỏ đang chỉ tới
Column to the Right: để thêm cột về phía bên phải của ô mà con trỏ chỉ tới
7. Hãy nêu các bước để thay đổi bố trí hình ảnh trang trong văn bản.
+ Bước 1: Nháy đúp chuột vào hình ảnh cần thay đổi
+ Bước 2: Chọn tag Layout → chọn kiểu bố trí phù hợp
8. Khi nào ta cần nào trình bày một phần văn bảng dưới dạng bảng ? Nêu ví dụ cụ thể.
- Cần trình bày một phần văn bản dưới dạng bảng khi thông tin, dữ liệu của một nội dung có tính sắp xếp..
- Ví dụ: Thời khóa biểu, thời gian biểu, bảng điểm, ....
Uses crt;
var a: array [1..100] of integer;
n, i, s: integer;
tb: real;
begin
clrscr;
write ('Nhap so luong phan tu: ');
readln (n);
for i:= 1 to n do readln (a[i]);
s:=s+a[i];
tb:=s/n;
writeln ('Gia tri trung binh cong cua mang la ',tb);
write ('Cac phan tu nho hon gia tri trung binh cong: ');
for i:= 1 to n do if a[i]<tb then write (a[i]:5); readln
end.
