PASCAL ạ.Bài 1:Viết chương trình nhập mảng các số nguyên và thực hiện các yêu cầu sau:1. Tính trung bình các số lẻ ở vị trí chẵn2. Tìm số lớn nhất trong mảng vừa nhập3. Tìm vị trí các số n...

Viết chương trình thực hiện các yêu cầu sau:a- Nhận mảng n số nguyên, xuất mảng vừa nhập ra màn hìnhb-Tìm số lớn nhất trong mảng một chiều trênc-Tìm vị trí các số nhỏ nhất trong mảng một chiềud-Đếm các số chính phương có trong mảng một chiềue-hiển thị các số nguyên tố có trong mảng một chiềuf-sắp xếp mảng một...

0

VT

Vương Thị Minh Tâm

1 tháng 1 2022

2

VM

vũ minh nhật

1 tháng 1 2022

a

NL

Nguyễn Lê Phước Thịnh

1 tháng 1 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

MT

my trần

29 tháng 8 2021

1. Viết chương trình nhập vào mảng gồm n số nguyên, - Đếm và đưa ra số phần tử chẵn của mảng - đưa ra số chẵn lớn nhất trong mảng - Tính tổng các số ở vị trí lẻ trong mảng - Tìm giá trị phần tử lẻ nhỏ nhất

1

NL

Nguyễn Lê Phước Thịnh

30 tháng 8 2021

uses crt;

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

i,n,dem,max,t,min,dem1:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

max:=-32000;

for i:=1 to n do

begin

if a[i] mod 2=0 then

begin

dem:=dem+1;

if max<a[i] then max:=a[i];

end;

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

else begin

writeln('So so chan la: ',dem);

writeln('So chan lon nhat la: ',max);

end;

t:=0;

for i:=1 to n do

if i mod 2=1 then t:=t+a[i];

writeln('Tong cac so o vi tri le la: ',t);

min:=maxint;

dem1:=0;

for i:=1 to n do

if a[i] mod 2<>0 then

begin

inc(dem1);

if min>a[i] then min:=a[i];

end;

if dem1=0 then writeln('Trong day khong co so le')

else writeln('So le nho nhat la: ',min);

readln;

end.

Viết 2 chương trình con tìm Max, Min và vị trí của Max, Min trong mảng. Áp dụng: Nhập vào 1 mảng có n phần tử là các số nguyên, tìm số nguyên lớn nhất, nhỏ nhất và vị trí của các số đó trong mảng. Các số có giá trị thuộc kiểu int.Input: đọc từ file 0100.inpDòng 1 là số nguyên dương nDòng 2 là n số nguyênOutput: ghi ra file 0100.out gồm 2 dòng:Dòng 1 chứa số lớn nhất trong mảng và các vị trí của số lớn nhất;Dòng 2...

TD

TÌNH ĐIÊN DẠI

2 tháng 10 2021

0

VH

Văn Hải Phạm

27 tháng 12 2021

viết chương trình nhập mảng 1 chiều chứa tối đa 100 số

a : tìm số lớn nhất số nhỏ nhất trong mảng

b : tìm vị trí số lớn nhất, nhỏ nhất

c : tính tổng tất cả các số trong mảng

d : tính tổng các số 0 vị trí chẵn trong mảng

e : tính tổng các số âm 0 vị trí lẻ trong mảng

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. ...

0

NV

NGUYỄN VIẾT LUẬN

21 tháng 11 2021

0

NT

Nguyễn Thị Thu Thúy

13 tháng 5 2021

Viết chương trình thực hiện các yêu cầu sau:

+ Nhập vào 1 mảng số nguyên

+In ra mảng vừa nhập

+In ra các số chẵn trong mảng

1

NL

Nguyễn Lê Phước Thịnh

13 tháng 5 2021

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;

writeln('Day so vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

writeln('Day cac so chan la: ');

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

TD

Thi Đua Khen Thưởng

24 tháng 3 2021

Nhập vào 1 mảng có N số nguyên ( N< 1000 )

1) Tính tổng các số chia hết cho 3 trong mảng vừa nhập

2) Tìm giá trị nhỏ nhất trong mảng , đưa ra vị trí đó . Nếu có nhiều vị trí chứa giá trị nhỏ nhất thì đưa ra vị trí lớn nhất trong các vị trí đó .

1

NL

Nguyễn Lê Phước Thịnh

25 tháng 3 2021

uses crt;

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

i,n,t,min,vt: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] mod 3=0 then t:=t+a[i];

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

min:=a[1];

for i:=1 to n do

if min>a[i] then min:=a[i];

vt:=1;

for i:=1 to n do

if min=a[i] then

begin

if vt<i then vt:=i;

end;

writeln('Gia tri nho nhat la: ',min);

writeln('Vi tri la: ',vt);

readln;

end.

TL

Thọ Lê Đức

27 tháng 4 2023

Bài 23: Viết chương trình nhập vào 1 mảng số nguyên.In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó Bài 24:Viết chương trình tìm giá trị lớn nhất( in ra vị trí chứa phần tử có giá trị lớn nhất )của dãy số gồm n số nguyên được nhập từ bàn phím CẦN GẤP CÂU TRẢ LỜI Ạ:((

2

KV

Kiều Vũ Linh

28 tháng 4 2023

Bài 23

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

i,n:integer;

s,tbc:real;

begin

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

for i:=1 to n do

begin

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

s:=s+a[i];

end;

tbc:=s/n;

writeln('Gia tri trung binh la ',tbc:10:2);

write('Cac so lon hon gia tri trung binh la: ');

for i:=1 to n do

if a[i] > tbc then write(a[i]:8);

readln

end.

KV

Kiều Vũ Linh

28 tháng 4 2023

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

i,n,max:integer;

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=2 to n do

if a[i] > max then max:=a[i];

for i:=1 to n do

begin

if max=a[i] then write(max,' o vi tri thu ',i);

break;

readln

end.

PG

Phạm Gia Bình

24 tháng 8 2021

- Viết chương trình nhập 1 mảng số nguyên gồm n phần tử

- In ra tất cả phần tử của mảng vừa nhập

- Đếm xem có bao nhiêu phần tử có giá trị là ước của 10.

- In ra các phần tử ở vị trí chẵn.

- In ra các phần tử ở vị trí lẻ.

1

ML

Minh Lệ

24 tháng 8 2021

Program HOC24;

var d,i,n: integer;

a: array[1..32000] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

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

end;

write('Cac phan tu cua mang vua nhap la: ');

for i:=1 to n do write(a[i],' ');

writeln;

d:=0;

for i:=1 to n do if 10 mod a[i]=0 then d:=d+1;

writeln('Co ',d,' phan tu co gia tri la uoc cua 10');

write('Cac phan tu o vi tri chan la: ');

for i:=1 to n do if i mod 2=0 then write(a[i],' ');

writeln;

write('Cac phan tu o vi tri le la: ');

for i:=1 to n do if i mod 2=1 then write(a[i],' ');

readln

end.

XH

-X_minh hiếu-

15 tháng 1 2022

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 ? mn giúp mik vs

2

NL

Nguyễn Lê Phước Thịnh

15 tháng 1 2022

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int i,n;

int main()

{

cin>>n;

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

for (i=n; i>=1; i--)

if (a[i]>0)

{

cout<<i<<" ";

return 0;

}

cout<<"Khong co so am trong day";

return 0;

}

DT

Đỗ Tuệ Lâm

15 tháng 1 2022