Tin học 11 . Mọi người giúp mk vs ạ . Cảm ơn mọi người nhiều 💛 Bài tập: Cho dãy A gồm n số nguyên. a1,a2,a3...an.Hãy xoá đi phần tử thứ i của dãy A và đưa ra màn hình kết quả là dãy mới đã xoá một phần tử
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
5 tháng 1 2021
uses crt;
var a:array[1..100]of integer;
i,n,min,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
dem:=0;
for i:=1 to n do
if min=a[i] then inc(dem);
writeln('So phan tu co gia tri nho nhat trong day la: ',dem);
readln;
end.
5 tháng 1 2021
uses crt;
var a:array[1..100]of integer;
i,n,min,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
dem:=0;
for i:=1 to n do
if min=a[i] then inc(dem);
writeln('So phan tu co gia tri nho nhat trong day la: ',dem);
readln;
end.
19 tháng 10 2021
a:
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n;i++)
{
cin>>x;
t=t+x;
}
cout<<t;
return 0;
}
25 tháng 2 2021
uses crt;
var a:array[1..10]of integer;
i,n,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>0;
end;
writeln('Day so vua nhap la: ');
for i:=1 to 10 do
write(a[i]:4);
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln;
writeln('So luong so chan la: ',dem);
readln;
end.
TD
23 tháng 10 2016
minh ghi bị nhầm cho dãy A gồm N số nguyên a1, a2...aN . trong dãy A có bao nhiêu phần tử là số lẻ , tính tống các phần tử lẽ đó.
TQ
23 tháng 10 2016
var s,a1,an,n,c:integer;
begin
s:=0;
c:=0
write('nhap a1,an ');
read(n);
for i:=a1 to an do
if i mod 2=0 then
begin
s:=s+i;
c:=c+1;
end;
write ('so so thoa ycdb la : ',c);
write ('tong so thoa ycdb la : ',s);
readln
end.
uses crt;
var
n,i,q,k,p:integer;
a,b:array [1..1000] of integer;
begin
clrscr;
write('n= ');readln(n);
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
write('Xoa pt co vi tri la: ');readln(p);
q:=0;
for i:=1 to n do
if q<>p then
begin
inc(q);
b[q]:=a[i];
end;
writeln('Mang sau khi xoa la: ');
for i:=1 to q do
write(b[i],' ');
readln;
end.
Cảm ơn rất nhiều ạ 💛