Viết CT a) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số lớn nhất trong dãy số b) Viết CT nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số nguyên nhỏ nhất trong dãy số Mn giúp em vs Mà 2 câu này riêng biệt nên mong mn đừng viết chung 1 CT
Những câu hỏi liên quan
Viết ct nhập từ bàn phím dãy số gồm N số nguyên a1,a2,...,an( N
Xem chi tiết
viết ct nhập vào 1 dãy gồm n số (với n được nhập từ bàn phím).tìm giá trị lớn nhất trong dãy số vừa nhập.
Var z:array[1..1000] of longint;
n, i, max:longint;
Begin
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
max:= z[1];
End;
Đúng 0
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,n,max,dem1,dem2: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('So lon nhat la: ',max);
readln;
end.
Đúng 0
Bình luận (0)
viết ct nhập từ bàn phím số nguyên dương N ( N<100) và dãy A gồm N số dương A1,A2,...An. hãy in mảng vừa nhập
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,A[100];
cin>>n;
for (int i=1; i<=n; i++)
cin>>A[i];
for (int i=1; i<=n; i++)
cout<<A[i]<<" ";
return 0;
}
Đúng 0
Bình luận (0)
Bài 1: viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử nhỏ nhất của dãy số.
Bài 2:viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử lớn nhất của dãy số
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 2
Bình luận (1)
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('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
Bình luận (0)
Viết chương trình nhập số nguyên N và dãy số gồm N số nguyên từ bàn phím. Tìm số lớn nhất trong dãy số.
Giúp mình với, mai mình thi môn này rồi 
uses crt;
Var a:array[1..100000] of longint;
i,n,max:longint;
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]>max then max:=a[i];
write('Gia tri lon nhat trong day so vua nhap la: ',max);
readln
end.
Đúng 2
Bình luận (0)
Viết chương trình tìm số lớn nhất trong dãy số gồm n số nguyên được nhập từ bàn phím và đếm các chẵn có trong dãy
uses crt;
var a:array[1..100]of integer;
i,n,max,dem: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('Gia tri lon nhat la: ',max);
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('So so chan la: ',dem);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập từ bàn phím số nguyên dương N (N100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình.
Đọc tiếp
Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình.
uses crt;
var a:array[1..100]of integer;
i,n,min,tam,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min);
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;
for i:=1 to n do write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
Cho một dãy gồm N các số nguyên (nhập từ bàn phím). Hãy viết chương trình thực hiện các yêu cầu sau:
a. Tìm và tính tổng các số nguyên tố trong dãy.
b. Tìm và in ra các số nguyên dương, nguyên âm có trong dãy, tìm số nguyên âm lớn nhất và số nguyên dương nhỏ nhất của dãy.
c. Sắp xếp các số nguyên dương lên đầu dãy, các số nguyên âm tiếp theo và cuối cung là số 0.
( Nếu loại số nào không có thì in ra “ Trong day khong có so ...”)
Đọc tiếp
Cho một dãy gồm N các số nguyên (nhập từ bàn phím). Hãy viết chương trình thực hiện các yêu cầu sau: a. Tìm và tính tổng các số nguyên tố trong dãy. b. Tìm và in ra các số nguyên dương, nguyên âm có trong dãy, tìm số nguyên âm lớn nhất và số nguyên dương nhỏ nhất của dãy. c. Sắp xếp các số nguyên dương lên đầu dãy, các số nguyên âm tiếp theo và cuối cung là số 0. ( Nếu loại số nào không có thì in ra “ Trong day khong có so ...”)
Viết ct nhập từ bàn phím dãy số nguyên a có n phần tử (n
Var a:array[1..100] of integer;
i,n:integer;
begin
write('Nhap so luong so nguyen trong mang ');readln(n);
for i:=1 to n do
begin
write('nhap phan tu thu ',i,' ');readln(a[i]);
end;
readln;
end.
Đúng 0
Bình luận (0)