Cho mình hỏi chút:
Có hàm xóa phần tử trong mảng ko ạ
Những câu hỏi liên quan
Cho mình hỏi chút:
Có hàm xóa phần tử trong mảng ko ạ
Cho mảng A gồm 10 phần tử thuộc kiểu nguyên. Viết hàm đếm số lượng số nguyên chia hết cho 7 của mảng A. Mọi người giúp mình với ạ
type mang=array[1..10]of integer;
function demsochiahet(a:mang):integer;
var dem,i,n:integer;
begin
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then inc(dem);
demsochiahet:=dem;
end;
Đúng 0
Bình luận (0)
Viết chương trình nhập vào bàn phím mảng 1 chiều gồm n phần tử. Đếm số phần tử đặc biệt trong mảng: Các phần tử dương ( âm, ko dương, ko âm) đồng thời chia hết(ko chia hết) cho 1 số bất kỳ.
Mn giúp em vs ạ!!!
1 Viết chương trình nhập mảng A gồm n phần tử nguyên. Cho biết mảng A có phải là mảng toàn phần tử chẵn ko?
2.viết chương trình nhập mảng A gồm n phần tử nguyên. Tìm các mảng phần tử duy nhất có trong mảng
Cảm ơn ạ!!
Bài 1:
uses crt;
var a:array[1..100]of integer;
n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n do
if a[i] mod 2<>0 then kt:=1;
if kt=0 then writeln('Thoa man')
else writeln('Khong thoa man');
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình pascal nhập mảng và sau đó xóa hết các phần tử âm trong mảng
program XoaPhanTuAm;
vararr: array[1..100] of integer;
n, i, j: integer;
beginwrite('Nhap so phan tu: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(arr[i]);
end;
j := 0;
for i := 1 to n do
begin
if arr[i] >= 0 then
begin
j := j + 1;
arr[j] := arr[i];
end;
end;
n := j;
writeln('Mang sau khi xoa phan tu am:');
for i := 1 to n do
begin
write(arr[i], ' ');
end;
readln;
end.
Đúng 2
Bình luận (0)
Cho mình hỏi là : Cách nhập và in ra màn hình các phần tử của biến mảng .
Cảm ơn nhiều ạ !
Nhập:
For i:=1 to n do readln(a[i]);
Xuất:
for i:=1 to n do write(a[i]:4);
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một mảng;
a. Viết hàm tìm vị trí phần tử lớn nhất trong mảng vừa nhập.
b. Viết hàm chèn phần tử có giá trị X vào phía sau phần tử có giá trị lớn nhất trong mảng.
c. In ra mảng sau khi chèn phần tử X
Lấy một ví dụ giải thích cho ý a., ý b.
Em hãy viết chương trình nhập vào mảng A gồm 100 phần tử. tính và đưa ra màn hình tổng các phần tử không chia chết cho 2 trong mảng. Mn ơi giúp mình làm bài này với ạ TT mình cảm ơn mọi người nhiều!! (pascal nhé mấy bạn ơi
Var a:array[1..100] of integer;
i,s:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln;
End.
Đúng 1
Bình luận (1)
VCT nhập 1 dãy số nguyên từ bàn phím sau đó xóa phần tử ở vị trí i của mảng in ra màn hình các phần tử của mảng trước và sau khi xóa