uses crt;
var n,i:integer;
b:array[1..100]of integer;
begin
clrscr;
randomize;
write('n='); readln(n);
for i:=1 to n do
b[i]:=random(10)+10;
for i:=1 to n do write(b[i]:4);
readln;
end.
Viết chương trình nhập từ bàn phím một số nguyên dương N (N <= 100). Tạo mảng A gồm N phần tử, mỗi phần tử là một số nguyên ngẫu nhiên có giá trị từ 1 đến 4. In ra màn hình mảng A.
Viết chương trình nhập từ bàn phím số nguyên dương N,N <=100 và dãy A gồm N số nguyên A1,A2,...An. xuất ra màng hình tổng các số nguyên trong dãy A theo yêu cầu sau
1 : viết các thủ tục nhập / xuất mảng A
2 : Viết các hàm tính tổng các số nguyên tromg dãu A, tổng số chẵn, tổng số lẻ trong dãy A
1.Cho 1 xâu kí tự tính xem trong số đó có bao nhiêu loại kí tự khác nhau (không phân biệt in hoa hay in thường)
2.Viết chương trình nhập 1 mảng n số nguyên. Đếm số phần tử nhỏ hơn 0, đếm số phần tử lớn hơn 0
3.Nhập xâu gồm tất cả chữ và số xuất ra màn hình các số riêng và chữa riêng. Hãy đếm số lần xuất hiện của mỗi chữ mỗi số
"giải giúp e vs 19h 22/7 e nộp r"
Bài 1: Viết chương trình Nhập vào một dãy số gồm n phần tử, đếm và in ra kết quả trong dãy có bao nhiêu số chẵn. Bài 2: Viết chương trình nhập vào một xâu ký tự in ra màn hình độ dài của xâu.
viết chương tình nhập 1 xâu S từ bàn phím. Tạo xâu S1 gồm 4 phần tử cuối cùng của xâu S, xuất xâu S,S1 ra màn hình.
Viết chương trình Pascal, nhập vào một dãy số nguyên N phần tử, xuất radãy vừa nhập theo thứ tự tăng dần. Giá trị của N và các phần tử của dãy số đượcnhập từ tệp Cau4.Inp. Dữ liệu xuất ra trên tệp Cau4.Out. Ví dụ:
| câu 4 input: |
4 6 8 7 55 9 8 7 6 56 4 5 6 7 8 97 50 40 60 80 35 35 1010 20 12 0 3 45 15 60 38 90 70 |
| câu 4 output: |
| 4 5 6 7 85 5 6 7 8 96 4 5 6 7 8 97 10 35 35 40 50 60 8010 0 3 12 15 20 38 45 60 70 90 |
Viết chương trình xoá các kí tự là chữ số từ một xâu bất kì được nhập từ bàn phím. In xâu kết quả ra màn hình
