tra loi nhanh giup minh nhe!

program bt;

var n,i:integer;

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

procedure nhap;

begin

writeln('nhap so pt');

readln(n);

writeln('nhap mang');

for i:=1 to n do read(a[i]);

end;

procedure xuli;

begin

dem:=0;

for i:=1 to n do

if a[i] mod 2= 0 then begin

writeln(a[i]);

inc(dem);

end;

begin

nhap;

xuli;

readln;

end.

Chúc bạn làm tốt!( có sai nói mik nhe)

1) Nút lệnh: find và place

2) Khởi động World\(\rightarrow\) insert\(\rightarrow\) kéo thả chuột để tạo bảng theo mong muốn

3) Chương tình bảng tính là phần mềm đc thiết kế giúp ghi lại và trình bày thông tin dưới dạng bảng

4) Thanh công thức, thanh trạng thái, trang tính, hộp tên, ô đc chọn,

5) Ô tính

6) Wrap text

7)

1. Trên trang tính, hãy bấm vào ô mà bạn muốn nhập công thức vào đó.

2. Nhập = (dấu bằng) trước các hằng số và toán tử (tối đa lên đến 8192 ký tự) mà bạn muốn sử dụng trong phép tính.

3. Nhấn enter

sự khác nhau giữa sao chép nội dung các ô có chứa công thức và sao chép nội dung các ô không chứa công thức là: Khi sao chép một ô là công thức có chứa địa chỉ thì địa chỉ được điều chỉnh để giữ nguyên quan hệ tương đối về vị trí so với ô đích. Khi di chuyển một ô là công thức có chứa địa chỉ thì địa chỉ trong công thức không được điều chỉnh..

program bt;

var i:byte;

a:array[1..20] of real;

procedure nhap;

begin

for i:=1 to 20 do read(a[i]);

end;

procedure xuli;

begin

for i:=1 to 20 do write(a[i],' ');

end;

begin

nhap;

xuli;

readln;

end.

Chúc bạn làm tốt!( có sai nói mik)

cách 1: dùng chương trình con

uses crt;
type mang=array[1..20]of integer;
var a:mang;
i,n:integer;
{------------ctc-nhap----------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{------------ctc-xuat----------------}
procedure xuat(var c:mang);
begin
for i:=1 to n do
write(c[i]:4);
end;
{----------chuong-trinh-chinh----------}
begin
clrscr;
nhap(a);
xuat(a);
readln;
end.

cách 2: nhập bình thường

uses crt;
type mang=array[1..20]of integer;
var a:mang;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(A[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.

Hàng phím cơ sở quan trọng nhất vì đó là phím ở giữa và khi ta đặt tay vào phím cơ sở gõ sẽ nhanh hơn .

( mình chỉ trả lời theo hiểu biết thôi nhé)

vì nó là những phím xuất phát

sai vì hệ lệnh có nhiều hơn 1 lệnh nên phải bỏ trong cặp từ khóa begin end

*t lớp 9 nên... =))

m:=n thiếu chấm phẩy cuối câu lệnh bạn nhé, mình nhớ bài này trong SGK là có chẩm phẩy ở cuối. Nếu có chẩm phẩy cuối thì cú pháp không sai, mà sai ở ngữ nghĩa câu lệnh, tức chỉ thực hiện được a:=b (vì điều kiện chỉ thực hiện được 1 câu lệnh. Cách sửa:

if x >8 then begin a:=b; m:=n; end;

B

công thức là một hình thức trình bày thông tin chính xác bằng cách dùng các biểu tượng, như trong công thức toán học hay công thức hóa học. Trong toán học, một công thức là một thể thức xây dựng từ các kí hiệu và sử dụng những luật quy định theo ngôn ngữ logic

B1: Nhập N là các số a1,a2,...,aN

B2: Cho i chạy từ 1 đến n thực hiện: nếu a[i]<0 thì inc(dem);

B3: Xuất dem

B4: Kết thúc

B1: Cho i chạy từ 1 đến 50 thực hiện công việc: S:=S+1/i;

B2: Xuất tổng S

B3: Kết thúc