Cho mình hỏi chút:
Có hàm xóa phần tử trong mảng ko ạ
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
S
0
5 tháng 5 2021
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;
14 tháng 6 2020
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.
HT
1
20 tháng 3 2023
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.
5 tháng 4 2022
Nhập:
For i:=1 to n do readln(a[i]);
Xuất:
for i:=1 to n do write(a[i]:4);
KV
14 tháng 3 2023
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.
có bạn ơi