Bài 1: Viết chương trình nhập vào một mảng gồm N số nguyên. Tính tổng các phần tử đã nhập. Bài 2: Viết chương trình nhập vào một mảng gồm N số nguyên. Tìm vị trí của phần tử lớn nhất. Bài 3: khai...

NT

Nguyễn Thị Như Ý

16 tháng 4 2018

Bài 1: Viết chương trình nhập vào một mảng gồm N số nguyên. Tính tổng các phần tử đã nhập. Bài 2: Viết chương trình nhập vào một mảng gồm N số nguyên. Tìm vị trí của phần tử lớn nhất. Bài 3: khai báo biến mảng trong pascal với mô tả sau: Biến mảng có tên theo quy tắc đặt tên, gồm 15 phần tử, mỗi phần tử là biến có kiểu số thực, chỉ số phần tử cuối là...

Đọc tiếp

#Tin học lớp 8

2

ML

Minh Lệ

10 tháng 4 2019

Lời giải :

Bài 1 :

program hotrotinhoc ;

var a : array[1..9999] of in teger ;

i,N,tong : integer ;

begin

write('Nhap gia tri cua cac phan tu');

write('Nhap do dai cua mang :'); readln(N);

for i:= 1 to N do

begin

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

end;

tong:=0;

for i:= 1 to N do

tong := tong + a[i] ;

write('Tong cac phan tu la :',tong);

readln

end.

Bài 2 :

program hotrotinhoc ;

var a : array[1..9999] of in teger ;

i,N,SLN : integer ;

begin

write('Nhap gia tri cua cac phan tu');

write('Nhap do dai cua mang :'); readln(N);

for i:= 1 to N do

begin

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

end;

SLN:= a[1] ;

if SLN < a[i] then write('Phan tu lon nhat la',SLN);

readln

end.

Câu 3 :

Đoạn khai báo : var a : array[1..15] of real ;

Chỉ số phần tử cuối thì cần viết cả chương trình thì mới có thể là nhập phần tử cuối là 100 bạn nhé.

Đúng(0)

NC

Nguyễn Chơn Nhân

26 tháng 11 2019

mình nghĩ câu 3 là var a:array[86..100] of real; thì đúng hơn

Đúng(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)

NN

Nguyễn Ngọc Quỳnh Như

3 tháng 4 2019 - olm

1.Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số Z gồm N phần tử.

2.Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in ra kết quả màn hình.

3.Viết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X. Hãy kiểm tra xem phần tử X có trong mảng A hay không ?

#Toán lớp 8

2

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

1.

Program Tim_Max;
Var A:Array[1..255] of Integer;
i, n, Max: Integer;
Begin
Write('Nhap n: '); Readln(n);
For i := 1 to n do
Begin
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]);
End;
Max := A[1];
For i := 2 to n do if A[i]>Max then Max := A[i];
Write('Phan tu lon nhat la :',Max);
Readln
End.

2.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
For i:=1 To N-1 Do
For j:=i+1 To N Do
If A[i]>A[j] Then
Begin
Tam:=A[i]; A[i]:=A[j]; A[j]:=Tam;
End;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.

3.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;

Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;

Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.

Đúng(0)

NC

Nguyễn Công Tỉnh

3 tháng 4 2019

câu 1 tham khảo cái này nhé

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

N,i,Max:Integer;

Begin

Write('Nhap N='); Readln(N);

For i:=1 To N Do

Begin

Write('A[',i,']='); Readln(A[i]);

End;

Max:=A[1];

For i:=2 To N Do

If Max<A[i] Then Max:=A[i];

Writeln('Phan tu lon nhat cua mang:', Max);

Readln;

End.

Đúng(0)

V

Vochehoang

26 tháng 4 2021

C1 Viết Chương trình nhập vào một mảng số thực gồm n phần tử tính tổng các phần tử chẵn ( n được nhập tử bàn phím )

C2 Viết chương trình nhập vào một mảng số nguyên gồm n phần tử tính tích các phần tử có trong dãy số đó

#Tin học lớp 8

2

NL

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

26 tháng 4 2021

Câu 1:

uses crt;

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

i,n:integer;

t:real;

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 2=0 then t:=t+a[i];

writeln(t:4:2);

readln;

end.

Đúng(0)

NL

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

26 tháng 4 2021

Câu 2:

uses crt;

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

i,n:integer;

t:real;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=1;

for i:=1 to n do

t:=t*a[i];

writeln(t:4:2);

readln;

end.

Đúng(0)

MP

Mai Phương Lê

4 tháng 5 2021

1 Nhập dãy số nguyên gồm n phần tử viết chương trình in ra những số có giá trị lẻ 2 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số chẵn có trong mảng 3 nhập vào dãy số nguyên gồm n phần tử viết chương trình tính tổng các số lẻ có trong mảng

#Tin học lớp 8

3

NL

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

5 tháng 5 2021

Bài 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] mod 2<>0 then write(a[i]:4);

readln;

end.

Đúng(1)

NL

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

5 tháng 5 2021

Bài 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] mod 2=0 then write(a[i]:4);

readln;

end.

Đúng(1)

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

#Tin học lớp 8

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.

Đúng(1)

MD

Minh Duy

27 tháng 4 2021

1.viết chương trình nhập vào 1 dãy số nguyên gồm n phần tử. Tính tổng là các số chẵn và in các phần tử đó lên màn hình. 2.Viết chương trình nhập vào mã số nguyên n phần tử. Tính tích các phần tử trong mảng và in các phần tử của mảng là số trong mảng lên màn hình. 3. Viết chương trình nhập vào mã số nguyên n phân tử. Đếm xem phần mảng có bao nhiêu phần tử lớn hơn 0. Tính và thông báo lên màn hình tổng bình phương...

Đọc tiếp

#Tin học lớp 8

5

BA

Bùi Anh Tuấn

27 tháng 4 2021

tách ra từng câu hỏi đi bro

Đúng(1)

NL

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

27 tháng 4 2021

Câu 1:

uses crt;

var a:array[1..200]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] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

Đúng(1)

B

Benny

7 tháng 3 2023

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

#Tin học lớp 11

1

NL

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

9 tháng 3 2023

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;

}

Đúng(0)

QN

Quân Nguyễn

23 tháng 12 2020

1.viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 72.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K<= 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ sốmn giúp em giải với...

Đọc tiếp

#Tin học lớp 11

1

NL

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

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;

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.

Đúng(1)

KK

Ken Kaneki

20 tháng 8 2021

Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, hiển thị mảng đã nhập ra màn hình, tính tổng mảng.

#Tin học lớp 11

1

NL

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

21 tháng 8 2021

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

readln;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln(t);

readln;

end.

Đúng(2)

TT

Tran Trang

20 tháng 4 2023

Bài tập 2. Viết chương trình nhập vào 1 dãy gồm n số nguyên. In dãy vừa nhập và đưa ra phần tử có giá trị lớn nhất và nhỏ nhất của mảng.

#Tin học lớp 8

1

H9

HT.Phong (9A5)

CTVHS

20 tháng 4 2023

Uses crt;

var n,i,max,min: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

max:=a[1];

for i:=1 to n do if(max<a[i]) then max:=a[i];

writeln(max);

min:=a[1];

for i:=1 to n do if(min>a[i]) then min:=a[i];

writeln(min);

readln;

end.

Đúng(2)

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