Viết chương trình nhập vào một mảng hai chiều gồm các số thựca. Tính tổng các sô trên đường chéo chínhb. Tìm số lớn nhất trong mỗi hàng và lưu lại tất cả các số đo vào một mảng một chiềuc. Tính tổng c...

TL

Trinh Lê Thị Kiều

14 tháng 9 2021

Viết chương trình nhập vào một mảng hai chiều gồm các số thựca. Tính tổng các sô trên đường chéo chínhb. Tìm số lớn nhất trong mỗi hàng và lưu lại tất cả các số đo vào một mảng một chiềuc. Tính tổng các số âm và số dương trên đường k là một đại lượng được nhập vào từ bàn phím nằm trong khoảng từ 1 đến...

Đọc tiếp

#Tin học lớp 9

0

TL

Trinh Lê Thị Kiều

13 tháng 9 2021

Viết chương trình nhập vào một mảng hai chiều gồm các số thức Tính tổng các số trên đường chéo chính

#Tin học lớp 12

1

NL

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

13 tháng 9 2021

uses crt;

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

i,n,m,j,t:integer;

begin

clrscr;

readln(n,m);

for i:=1 to n do

for j:=1 to m do

begin

readln(a[i,j]);

end;

t:=0;

for i:=1 to n do

for j:=1 to m do

if i=j then t:=t+a[i,j];

writeln(t);

readln;

end.

Đúng(2)

TL

Trinh Lê Thị Kiều

15 tháng 9 2021

GIúp mình câu b, c vs

Đúng(0)

D0

Divine 000

21 tháng 2 2021

1. Viết chương trình nhập vào một mảng các số nguyên. Tìm tổng các số. 2. Viết chương trình nhập vào một mảng các số nguyên. Tính và xuất tổng các số chẵn có trong mảng.3. Viết chương trình nhập vào một mảng các số nguyên. Tính và xuất tổng các số lẻ có trong mảng.4. Viết chương trình nhập vào một dãy các số nguyên. Hãy đưa ra màn hình có bao nhiêu số chẳn và bao nhiêu số lẻ trong dãy.5. Viết...

Đọc tiếp

#Tin học lớp 11

1

NL

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

21 tháng 2 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('Tong cac so trong mang la: ',t);

readln;

end.

Câu 2:

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

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

writeln('Tong cac so chan la: ',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)

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

#Tin học lớp 11

0

LC

Linh Chii

13 tháng 5 2021

Viết chương trình nhập vào từ bàn phím một mảng các số nguyên tìm số lớn nhất trong mảng các số nguyên đó. 2. Viết chương trình tính tổng của tờ = 1 + 1/2 + 1/3 + 1/4 + ... + 1 /100

#Tin học lớp 8

2

NL

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

13 tháng 5 2021

1:

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do

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

writeln(max);

readln;

end.

Đúng(1)

NL

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

13 tháng 5 2021

2:

uses crt;

var s:real;

i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do

s:=s+1/i;

writeln(s:4:2);

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)

LT

Lương Trần Phương Linh

17 tháng 3 2022

Viết chương trình nhập vào 1 mảng gồm 10 phần tử hãy:1. Hiển thị dãy vừa nhập trên 1 hang.2. Tính tổng các phần tử trong mảng.3. Tính trung bình cộng các phần tử trong mảng.4. Tính tổng các số âm và số dương trong mảng.5. Tính tổng các số chẵn và số lẻ trong mảng.6. Đếm các số âm, số dương, số chẵn, số lẻ trong...

Đọc tiếp

#Tin học lớp 8

1

A

Azusa

15 tháng 4 2022

program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
clrscr;
for i:=1 to 10 do begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap la: ');
for i:=1 to 10 do write(a[i],', ');
writeln;
s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
for i:=1 to 10 do begin
s := s + a[i];
if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
else begin sl := sl + a[i]; dl := dl + 1 end;
end;
writeln('Tong cac phan tu trong mang la ',s);
writeln('Trung binh cong cac phan tu trong mang la ',s/10);
writeln('Tong cac so am la ',sa);
writeln('Tong cac so duong la ',sd);
writeln('Tong cac so chan la ',sc);
writeln('Tong cac so le la ',sl);
writeln('So cac so am la ', da);
writeln('So cac so duong la ', dd);
writeln('So cac so chan la ', dc);
writeln('So cac so le la ', dl);
readln
end.

Đúng(0)

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)

AL

Anh Lê duy

29 tháng 11 2021

Viết chương trình nhập vào một mảng hai chiều có M dòng, N cột là các số nguyên dương, sau đó:

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

- Tính tổng các số chẵn của mảng

- Đếm xem trong mảng có bao nhiêu số bằng 10.

#Tin học lớp 11

0

AL

Anh Lê duy

29 tháng 11 2021

Viết chương trình nhập vào một mảng hai chiều có M dòng, N cột là các số nguyên dương, sau đó:

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

- Tính tổng các số chẵn của mảng

- Đếm xem trong mảng có bao nhiêu số bằng 10.

#Tin học lớp 11

1

NL

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

3 tháng 12 2021

#include <iostream>
using namespace std;
int main()
{
int a[100][100],i,j,m,n;
cout<<"Nhap so dong cua mang:"; cin>>n;
cout<<"Nhap so cot cua mang:"; cin>>m;
for (i=1; i<=n; i++)
for (j=1; j<=m; j++)
{
cout<<"A["<<i<<","<<j<<"]="; cin>>a[i][j];
}
for (i=1; i<=n; i++)
{
for (j=1; j<=m; j++)
cout<<a[i][j]<<" ";
cout<<endl;
}
return 0;
}

Đú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