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.

uses crt;

var a:array[1..100]of real;

i:integer;

begin

clrscr;

for i:=1 to 100 do

begin

write('a[',i,']='); readln(a[i]);

end;

{----------------------------xuat------------------------}

for i:=1 to 100 do

write(a[i]:4);

readln;

end.

1 tháng 1 2020

Dòng {---------------------------------xuat---------------------} là gì vậy bạn ?

Viết chương trình nhập một mảng 1 chiều n phần tử các số thực và in mảng đã nhập.  Nhập tiếp 1 số thực, tìm và hiển thị tất cả các vị trí số đã nhập có trong mảng?2. Viết chương trình nhập một mảng 1 chiều n phần tử các số thực và in mảng đã nhập.  Tìm và in ra vị trí của số âm cuối cùng có trong mảng.3. Viết chương trình nhập một mảng 1 chiều n phần tử các số nguyên và in mảng đã nhập. ...
Đọc tiếp

Viết chương trình nhập một mảng 1 chiều n phần tử các số thực và in mảng đã nhập.  Nhập tiếp 1 số thực, tìm và hiển thị tất cả các vị trí số đã nhập có trong mảng?

2. Viết chương trình nhập một mảng 1 chiều n phần tử các số thực và in mảng đã nhập.  Tìm và in ra vị trí của số âm cuối cùng có trong mảng.

3. Viết chương trình nhập một mảng 1 chiều n phần tử các số nguyên và in mảng đã nhập.  Tìm  và in ra tổng của các phần tử chia hết cho 3 có trong mảng.

4. Viết chương trình nhập một mảng 1 chiều n phần tử các số thực và in mảng đã nhập.  Nhập tiếp một số x và tìm các phần tử trong mảng lớn hơn x.

5. Viết chương trình nhập một mảng 1 chiều n phần tử các số thực và in mảng đã nhập. Tìm và in ra giá trị lớn nhất, bé nhất, các phần tử đạt giá trị lớn nhất, bé nhất.

Giaỉ giúp mình mâý bt trên. (mảng và con trỏ)

0
23 tháng 12 2020

Câu 1: 

uses crt;

var a:array[1..500]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

       write('A[',i,']='); readln(a[i]);

  end;

t:=0;

for i:=1 to n do 

  if (a[i]<0) and (a[i] mod 7=0) then t:=t+a[i];

writeln('Tong cac so am chia het cho 7 la: ',t);

readln;

end.

Câu 2: 

uses crt;

var c,a:array[1..10]of integer;

i,kt,j,dem:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

write('C[',i,']='); readln(c[i]);

end;

dem:=0;

for i:=1 to 10 do 

  if c[i]>1 then 

begin

kt:=0;

for j:=2 to c[i]-1 do 

  if c[i] mod j=0 then kt:=1;

if kt=0 then 

begin

inc(dem);

a[dem]:=c[i];

end;

end;

if dem=0 then writeln('Trong day khong co so nguyen to')

else begin

writeln('Cac so nguyen to trong day la: ');

for i:=1 to dem do

write(a[i]:4);

end;

readln;

end.

Câu 3: 

uses crt;

var d:array[1..200]of integer;

i,k,dem:integer;

begin

clrscr;

write('Nhap k='); readln(k);

for i:=1 to k do 

  begin

write('D[',i,']='); readln(d[i]);

end;

dem:=0;

for i:=1 to k do 

  if (a[i] mod 2=0) and (a[i]>=10) then inc(dem);

writeln('So phan tu chan co 2 chu so la: ',dem);

readln;

end.

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

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 

  if a[i]<0 then write(a[i]:4);

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n:integer;

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 

  if a[i]>0 then write(a[i]:4);

readln;

end.

BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết...
Đọc tiếp

BT1: Viết chương trình nhập vào một mảng gồm 10 phần tử số nguyên. In ra màn hình mảng vừa nhập và tính tổng các phần tử trong mảng. BT2: Viết chương trình nhập vào một mảng gồm 10 phần tử số thực. In ra màn hình các phần tử có chỉ số chẵn trong mảng. BT3: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình các phần tử có giá trị chẵn trong mảng. BT4: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. In ra màn hình phần tử có giá trị lớn nhất trong mảng. BT5: Viết chương trình nhập vào một mảng gồm n phần tử số thực. In ra màn hình chỉ số của phần tử nhỏ nhất trong mảng. BT6: Viết chương trình nhập vào một mảng gồm n phần tử số nguyên. Đếm xem trong mảng vừa nhập có bao nhiêu phần tử lẻ.

1

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

for (int i=1;i<=n; i++)

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

for (int i=1; i<=n; i++)

nn=min(nn,A[i]);

for (int i=1; i<=n; i++)

if (nn==A[i]) cout<<i<<" ";

return 0;

}

27 tháng 4 2023

var a:array[1..100] of real;

i,b:integer;

s:real;

begin

write('Nhap so luong phan tu ');readln(b);

for i:=1 to b do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

end;

write('Tong cac phan tu la ',s:10:2);

readln

end.

17 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x%2!=0) dem++;

}

cout<<dem;

return 0;

}