Nhập vào một dãy gồm N phần tử. N =10 và n phần tử của dãy a, A[i] 100 (có kiểm tra dữ liệu khi nhập). A, In ra các phần tử là số nguyên tố của dãy B. Tìm ƯCLN của tất ca phần tử tro...

DV

Dương Văn Nam

7 tháng 2 2018

Nhập vào một dãy gồm N phần tử. N <= 5 và >=10 và n phần tử của dãy a, A[i] <1 và >100 (có kiểm tra dữ liệu khi nhập). A, In ra các phần tử là số nguyên tố của dãy B. Tìm ƯCLN của tất ca phần tử trong dãy. C. Tính biểu thức sau S= a11 + a22 + … + ann D. Sắp xếp dãy tăng dần và in ra dãy sau xắp...

Đọc tiếp

#Tin học lớp 8

0

HN

Hải Nguyễn

4 tháng 2 2023

Nhập vào một dãy gồm N phần tử. N <= 5 và >= 10 và n phần tử của dãy a, A[i] <1 và >100 (có kiểm tra dữ liệu khi nhập).A, In ra các phần tử là số nguyên tố của dãyB. Tìm ƯCLN của tất ca phần tử trong dãy.C. Tính biểu thức sau S= a11 + a22 + … + annD. Sắp xếp dãy tăng dần và in ra dãy sau xắp...

Đọc tiếp

#Tin học lớp 11

0

V

Vochehoang

13 tháng 4 2021

Viết chương trình nhập vào một số nguyên gồm n phần tử. Tính tổng của các phần tử của các dãy số đó.Viết chương trình nhập vào một mảng số nguyên gồm n phần tử . Nhập vào một số nguyên x bất kì a) Kiểm tra x có trong dãy hay ko hiển thị vị trí của x b) Đếm xem x xuất hiện bao nhiêu lầnMọi người giúp vs , cần gấp...

Đọc tiếp

#Tin học lớp 8

2

NL

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

13 tháng 4 2021

Câu 1:

uses crt;

var a:array[1..100]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

t:=t+a[i];

writeln(t);

readln;

end.

Đúng(1)

NL

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

13 tháng 4 2021

Câu 2:

uses crt;

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

i,n,x,dem,kt:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

kt:=0;

dem:=0;

for i:=1 to n do

if a[i]=x then

begin

kt:=1;

write(i:4);

inc(dem);

end;

if kt=0 then writeln('Khong co ',x,' trong day');

writeln(x,' xuat hien ',dem,' lan trong day');

readln;

end.

Đúng(1)

NT

Ngọc Ty

24 tháng 4 2023

Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

24 tháng 4 2023

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

i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.

Đúng(1)

8N

8/1 Ngọc Hân

26 tháng 4 2022

a.Viết chương trình nhập vào 1 số nguyên n in ra màn hình các số chẵn in ra từ 1 đến n b.Viết chương trình nhập 1 dãy số nguyên n phần tử kiểm tra xem n có phải số nguyên tố hay không c.Viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử in ra màn hình các số chia hết cho 2d. Viết chương trình 1 dãy số nguyên gồm n phần tử in ra màn hình số nhỏ nhất có trong...

Đọc tiếp

#Tin học lớp 8

1

NL

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

30 tháng 4 2022

c:

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

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

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

if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

d:

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,nn;

int main()

{

cin>>n;

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

nn=a[1];

for (i=1; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

Đúng(0)

NX

nguyễn xuân hoàng tùng

22 tháng 2 2023

viết chương trình nhập vào 1 dãy gồm n số nguyên ( n<= 100)
a) xuất dãy vừa nhập
b) điền phần tử có giá trị nhỏ nhất trong dãy và tìm vị trí của phần tử đó

#Tin học lớp 11

0

NM

Nhật Minh

21 tháng 3 2022

Nhập một dãy A có N số nguyên Hãy xuất ra các phần tử là số chính phương

Dữ liệu nhập: file DAYSOCP.INP:

- Dòng 1: số phần tử N của dãy A

- Dòng 2: Dãy A

Pascal ạ;-;

#Tin học lớp 8

0

NM

Nhật Minh

21 tháng 3 2022

Nhập một dãy A có N số nguyên Hãy xuất ra các phần tử là số chính phương

Dữ liệu nhập: file DAYSOCP.INP:

- Dòng 1: số phần tử N của dãy A

- Dòng 2: Dãy A

Pascal ạ;-;

#Tin học lớp 7

0

NM

Nhật Minh

21 tháng 3 2022

Nhập một dãy A có N số nguyên Hãy xuất ra các phần tử là số chính phương

Dữ liệu nhập: file DAYSOCP.INP:

- Dòng 1: số phần tử N của dãy A

- Dòng 2: Dãy A

Pascal ạ;-;

#Tin học lớp 8

0

DV

Dương Văn Nam

8 tháng 2 2018

Nhập vào một dãy gồm N phần tử. N <= 5 và >= 10 và n phần tử của dãy a, A[i] <1 và >100 (có kiểm tra dữ liệu khi nhập). A, In ra các phần tử là số nguyên tố của dãy B. Tìm ƯCLN của tất ca phần tử trong dãy. C. Tính biểu thức sau S= a11 + a22 + … + ann D. Sắp xếp dãy tăng dần và in ra dãy sau xắp...

Đọc tiếp

#Tin học lớp 11

1

NQ

Nguyễn Quang Anh

6 tháng 4 2018

Program Vidu;
Uses crt;
Type Mang1C = array[1..10] of Integer; {khai báo tên mảng – cách 2}
Var A:Mang1C; {Đặt tên mảng là A}
i:integer;
Begin
clrscr;
Writeln('Nhap gia tri cho mang A');
For i:=1 to 10 do
Begin
Write('A[',i,'] = ');
Readln(A[i]); { đọc vào giá trị cho A thứ i}
End;
Write('Danh sach cac phan tu trong mang A: ');
For i:=1 to 10 do
Write(A[i]:5);
Readln;
End.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP