uses crt;
var a:array[1..100]of integer;
i,n,d,j,kt:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
begin
str(a[i],st);
d:=length(st);
kt:=0;
for j:=1 to d do
if st[j]<>st[d-j+1] then kt:=1;
if kt=0 then write(st:4);
end;
readln;
end.
Nhập một mảng số nguyên gồm n phần tử.In kết quả ra màn hình các số palindrome (pascal)
Viết chương trình nhập một mảng số nguyên gồm 5 phần tử. Sau đó tính tích các phần tử là số âm và chia hết cho 2 , rồi in kết quả ra màn hình.
Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy và in ra màn hình số lớn nhất của dãy số vừa nhập từ bàn phím.
Viết chương trình nhập mảng số nguyên gồm n phần tử đưa các dãy số dương ra màn hình
viết chương trình sử dụng biến mảng để nhập một dãy gồm N số nguyên từ bàn phím.In ra màn hình các số nguyên đó. Tính tổng và trung bình cộng của N số đó.
Giúp mình với ạ
Viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị lớn nhất Câu 2: viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình giá trị nhỏ nhất
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
Biết chương trình nhập vào 1 bến mảng gồm n số nguyên xuất ra màn hình độ dài và giá trị của các phần tử trong mảng đó
viết chuương trình pascal sử dụng biến mảng để nhập từ bàn phím N phần tử của 1 dãy số . In ra màn hình số lớn nhất và số nhỏ nhất . Độ dài N của dãy cũng được nhập từ bàn phím
