1.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá số lớn nhất có trong dãy vừa nhập. trị 2.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông bá...

AC

Ái Cầm Trần

2 tháng 3 2023

1.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá số lớn nhất có trong dãy vừa nhập. trị 2.Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, thông báo ra màn hình giá trị số nhỏ nhất có trong dãy vừa nhập. 3. Viết chương rình nhập vào từ bàn phím một dãy các số nguyên, tính và thông báo ra màn hình tổng các số có giá trị là chẵn có...

Đọc tiếp

#Tin học lớp 10

0

O

ohsusu

30 tháng 4 2021

viết chương trình nhập vào 1 dãy gồm n số nguyên (n được nhập từ bàn phím). Tìm giá trị lớn nhất rtong dãy vừa nhập mà in ra màn hình

#Tin học lớp 8

2

ML

Minh Lệ

30 tháng 4 2021

Program HOC24;

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

i,max,,n: integer;

begin

write('Nhap so phan tu 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 a[i]<max then max:=a[i];

write('So lon nhat la: ',max);

readln

end.

Đúng(0)

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
n,i,max:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
max:=a[1];
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
if a[i]>max then max:=a[i];
end;
writeln('GTLN: ',max);
readln;
end.

Đúng(0)

TH

Trần Hà Thư

6 tháng 5 2021

Viết chương trình nhập vào từ 1 bàn phím 1 dãy n số nguyên( n nhập từ bàn phím). Sau đó hiển thị ra màn hình các số chẵn của dãy số vừa nhập.

#Tin học lớp 8

2

NL

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

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

for i:=1 to n do

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

readln;

end.

Đúng(1)

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
n,i:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Cac so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln;
end.

Đúng(0)

HP

hoàng phúc nguyễn

22 tháng 2 2022

câu 1 : viết chương trình để:-Nhập một dãy các số nguyên gồm N phần tử ( ko quá 60 kí tự);-Nhập 1 số nguyên K từ bàn phím;-Thông báo ra màn hình số lượng các phần tử trong dãy bằng KCâu 2: viết chương trình để :-Nhập một xâu A ( không quá 130 kí tự ) từ bàn phím ;-Tạo xâu mới B gồm các kí tự trong xâu A nhưng không có kí tự đầu và cuối ;- In kết quả các xâu trên ra màn hình .mọi người giúp em với ạ . em đang...

Đọc tiếp

#Tin học lớp 11

1

NL

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

22 tháng 2 2022

Câu 1:

#include <bits/stdc++.h>

using namespace std;

long long i,n,k,dem,x;

int main()

{

cin>>n;

cin>>k;

dem=0;

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

{

cin>>x;

if (x==k) dem++;

}

cout<<dem;

return 0;

}

Đúng(1)

VV

Vẹt Vẹt

19 tháng 4 2022

viết chương trình nhập vào một dãy số nguyên . số phân tử của dãy được nhập từ bàn phím a, in ra dãy số vừa nhập ra màn hình b, tính tổng các phân tử dương có trong dãy số

#Tin học lớp 8

1

NL

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

20 tháng 4 2022

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

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

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

writeln;

t:=0;

for i:=1 to n do

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

writeln(t);

readln;

end.

Đúng(1)

VV

Vẹt Vẹt

30 tháng 4 2022

Ý a vs ý b đâu

bn

Đúng(0)

HH

HUY HUỲNH QUANG

5 tháng 5 2023

Viết chương trình nhập vào một dãy gồm N số nguyên (N được nhập từ bàn phím). In ra màn hình tổng các phần tử chẳn, tổng các phần tử lẻ và giá trị lớn nhất của dãy số.

#Tin học lớp 8

1

KV

Kiều Vũ Linh

5 tháng 5 2023

Bài 5:

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

i,n,max:integer;

sc, sl:longint;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');rreadlna[i]);

If a[i] mod 2 = 0 then sc:=sc+b[i];

If a[i] mod 2 <> 0 then sl:=sl+a[i];

End;

max:=a[1];

For i:=2 to n do

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

Writeln('Tong cac so chan la ',sc);

Writeln('Tong cac so le la ',sl);

write('So lon nhat la ',max);

Readln

End.

Đúng(1)

HH

HUY HUỲNH QUANG

5 tháng 5 2023

Xin cảm ơn loading...

Đúng(0)

UO

Uchiha Obito

9 tháng 5 2021

sử dụng biến mảng Viết chương trình nhập vào một dãy số gồm n số nguyên từ bàn phím in ra màn hình giá trị lớn nhất của dãy số đó

#Tin học lớp 8

1

NL

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

9 tháng 5 2021

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)

BN

Bùi Ngọc Khánh Huyền

6 tháng 8 2023

1. Viết chương trình nhập vào n số nguyên từ bàn phím. Hãy in ra màn hình
các số chính phương có trong dãy vừa nhập? Cho biết số lớn nhất trong dãy?

#Tin học lớp 8

1

NL

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

6 tháng 8 2023

uses crt;

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

i,n,ln:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

ln:=0;

for i:=1 to n do

if trunc(sqrt(A[i]))=sqrt(a[i]) then

begin

write(a[i]:4);

if ln<A[i] then ln:=A[i];

end;

writeln;

writeln('So chinh phuong lon nhat la: ',ln);

readln;

end.

Đúng(0)

BN

Bùi Ngọc Khánh Huyền

6 tháng 8 2023

mình chạy thử nhưng không ra kq ạ?

Đúng(0)

PL

Phạm Linh

2 tháng 5 2023

Viết chương trình nhập vào một dãy số a có n phần tử nhập vào từ bàn phím in ra màn hình các phần tử lớn hơn 5 của dãy số vừa nhập vào?

#Tin học lớp 8

1

ML

Minh Lệ

2 tháng 5 2023

Program HOC24;

var i,n: integer;

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

begin

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]>5 then write(a[i],' ');

readln

end.

Đúng(3)

HN

Hiền Nguyễn

24 tháng 3 2021

1 Hãy viết chương trình nhập vào một dãy số ,in ra màn hình các số chẵn có trong dãy số ,với độ dài dãy số được nhập vào từ bàn phím 2 Hãy viết chương trình nhập vào một dãy số , in ra màn hình trung bình cộng của các phần tử trong dãy số với độ dài...

#Tin học lớp 8

2

HN

Hiền Nguyễn

24 tháng 3 2021

Bạn ơi giúp mình với chiều nay mình thi rồi

Đúng(1)

NL

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

24 tháng 3 2021

Câu 2:

uses crt;

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

i,n,tb:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

writeln(tb/n:4:2);

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