Uses crt;
var n,i: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]:3);
readln;
end.
Uses crt;
var n,i: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
writeln(a[i]:3);
readln;
end.
Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các yêu cầu sau
a) Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực
b) Phần tử thứ năm của mảng A được gắn giá trị là 8
c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhập
Câu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiên
Câu 3: Cho mảng A chứa các giá trị sau
A | 17 | 13 | 20 | 10 | 15 |
I | 3 | 7 | 5 | 6 | 7 |
a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêu
b) Cho các câu lệnh sau:
A[2]:= A[3] + A[5];
A[9]:= A[6] + A[7];
Dựa vào bảng trên hãy tính giá trị các phần tử A[2], A[9]
Giúp em với ạ chiều nay thi rồi huhu
Khi báo mảng Học sinh gồm 50 phần tử, các phần tử thuộc kiểu số nguyên <Viết câu lệnh nhập dữ liệu cho các phần tử của mảng Học sinh>
Help mik zới=))
Câu 6. Chuyển các câu lệnh sau sang Pascal
a. Nhập dữ liệu cho biến a
b. Nhập dữ liệu cho biến mảng a gồm 15 phần tử.
b. Hiển thị dữ liệu cho phần tử thứ 5của mảng A
c. Nếu a lớn hơn hoặc bằng 10 thì tăng a lên 100 đơn vị.
d. Nếu a lớn hơn hoặc bằng 10 thì tăng a lên 10 đơn vị sau đó gán vào biến T ngược lại hiển thị a ra màn hình.
Câu 6. Chuyển các câu lệnh sau sang Pascal
a. Nhập dữ liệu cho biến a
b. Nhập dữ liệu cho biến mảng a gồm 15 phần tử.
b. Hiển thị dữ liệu cho phần tử thứ 5của mảng A
c. Nếu a lớn hơn hoặc bằng 10 thì tăng a lên 100 đơn vị.
d. Nếu a lớn hơn hoặc bằng 10 thì tăng a lên 10 đơn vị sau đó gán vào biến T ngược lại hiển thị a ra màn hình.
Để nhập dữ liệu cho mảng a gồm 100 phần tử ra màn hình ta dùng câu lệnh: *
A.For i:= 1 to 100 do writeln(a[i]);
B For i:= 1 to 100 do readln(a[i]);
Để nhập dữ liệu từ bàn phím cho mảng A có 10 phần tử là số nguyên ta dùng lệnh nào sau đây?
A. For i:=1 to 10 do Readln(A[i]);
B. For i:= 1 to 10 do Writeln(A[i]);
C. Dùng 10 lệnh Readln(A);
D. Cả (A), (B), (C) đều sai.
1:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số chẵn, in tổng đó.
2:Viết chương trình Pascal nhập vào mảng a gồm n phần tử nguyên (n<100). Sau đó in ra màn hình mảng vừa nhập, tính giá trị của các phần tử có giá trị là số lẻ, in tổng đó.
giúp mik 2 câu này với ạ
Câu 1: Viết cú pháp lệnh khai báo biến mảng? Khai báo 2 biến x,y kiểu mảng có 50 phần tử nguyên. Câu 2: Viết chương trình nhập vào một dãy (mảng) gồm n số và in ra các số chia hết cho 3 đã nhập. Em hãy thực hiện các yêu cầu sau (không viết chương trình): - Em hãy xác định input, output của bài toán - Em hãy khai báo các biến sử dụng trong bài trên Câu 3: Viết chương trình nhập vào n, tính tổng S=1+2+..+n (bằng lệnh while) Giúp mình với đang cần gấp :
Câu 3: Viết chương trình nhập vào một mảng gồm n phần tử.
a. Tính tổng các phần tử trong mảng
b. In ra tổng của các phần tử chẵn trong mảng.
c. Sắp xếp mảng giảm dần.
Giúp mik với !!! Bằng pascal nhé