K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

#include <bits/stdc++.h>

using namespace std;

long long nn,i,x,n;

int main()

{

cin>>n;

nn=LLONG_MAX;

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

{

cin>>x;

nn=min(nn,x);

}

cout<<nn;

return 0;

}

Viết chương trình nhập n số nguyên dương n≤10000, các số trong phạm vi từ 0 đến 254. Tìm tập 30 giá trị số lớn hơn cả. DL vào: file B1_INP.TXT có dòng dầu là số n từ dòng kế ghi đủ n số ghi cách nhau dấu cách hoặc xuống dòng. KQ ra: giá trị vào file B1_OUT.TXT có mỗi dòng ghi 1 giá trị, số trình tự giảm dần nếu không đủ phải ghi...
Đọc tiếp

Viết chương trình nhập n số nguyên dương n≤10000, các số trong phạm vi từ 0 đến 254. Tìm tập 30 giá trị số lớn hơn cả. DL vào: file B1_INP.TXT có dòng dầu là số n từ dòng kế ghi đủ n số ghi cách nhau dấu cách hoặc xuống dòng. KQ ra: giá trị vào file B1_OUT.TXT có mỗi dòng ghi 1 giá trị, số trình tự giảm dần nếu không đủ phải ghi nhận xét không đủ kết quả ở cuối cùng. BÀI 2 Viết chương trình nhập n số nguyên dương n≤10000, các số trong phạm vi từ 0 đến 254. Tìm top 30 giá trị số có số lần xuất hiện nhiều hơn cả KQ ra: ghi file có mỗi dòng ghi giá trị và số lần xuất hiện ghi cách nhau dấu cách và thứ tự giảm dần số lần xuất hiện Nếu cùng số lần xuất hiện nhưng nhiều giá trị số thì phải ghi hết các giá trị sô đó xong mới ghi tới số lần xuất hiện tất cả sẽ ghi trên 1 dòng và cách nhau 1 dấu cách. Nếu không đủ số lượng kết quả thì phải ghi nhận xét đó ở cuối cùng

0

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Câu 2: 

uses crt;

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

i,n,max,min: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];

min:=a[1];

for i:=1 to n do 

  begin

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

if min>a[i] then min:=a[i];

end;

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

writeln('So nho nhat la: ',min);

readln;

end.

Câu 1:

uses crt;

var k,i:integer;

begin

clrscr;

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

for i:=1 to k do

write(i:4);

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

t:=t+a[i];

writeln('Tong cac gia tri cua day la: ',t);

readln;

end.

Dạng 1: ÍT NHẤT Bài 1: Viết chương trình tạo 1 mảng số nguyên có ít nhất 10 phần tử. In giá trị các phần tử có trong mảng ra màn hình. Bài 2: Viết chương trình tạo 1 mảng có ít nhất 10 phần tử. In giá trị các phần tử có trong mảng ra màn hình. Dạng 2: TỐI ĐA Bài 1: Viết chương trình tạo 1 mảng số nguyên có tối đa 100 phần tử. In giá trị các phần tử có trong...
Đọc tiếp

Dạng 1: ÍT NHẤT
Bài 1: Viết chương trình tạo 1 mảng số nguyên có ít nhất 10 phần tử. In giá trị
các phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng có ít nhất 10 phần tử. In giá trị các phần tử
có trong mảng ra màn hình.
Dạng 2: TỐI ĐA
Bài 1: Viết chương trình tạo 1 mảng số nguyên có tối đa 100 phần tử. In giá trị
các phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng có tối đa 100 phần tử. In giá trị các phần
tử có trong mảng ra màn hình.
Dạng 3: GỒM
Bài 1: Viết chương trình tạo 1 mảng số nguyên gồm 5 phần tử. In giá trị các
phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng gồm 10 phần tử. In giá trị các phần tử có
trong mảng ra màn hình.

0

uses crt;

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

n,i,dem,tbc:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Cac so chan la: ');

dem:=0;

tbc:=0;

for i:=1 to n do
if a[i] mod 2=0 then

begin

write(a[i]:4);

inc(dem);

tbc:=tbc+a[i];

end;

writeln;

writeln('So phan tu chan la: ',dem);

writeln('Trung binh cong cua cac so chan trong day la: ',tbc/dem:4:2);

readln;

end.

9 tháng 12 2017

program boi_cua_3;

uses crt;

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

n,i:byte;

min:integer;

begin

clrscr;

write('nhap so luong phan tu cua mang: ');

readln(n);

for i:= 1 to n do

begin

write('nhap phan tu thu [',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 cua day la: ',min);

readln

end.

1 tháng 3 2021

Program HOC24;

var i,n: integer;

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

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do

begin

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

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

end;

write('Tong cac phan tu chia het cho 3 la: ',t);

readln

end.

uses crt;

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

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

writeln(t);

readln;

end.

30 tháng 3 2021

uses crt;

const fi='input.txt';

var f1:text;

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

n,i,max:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

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(f1,max);

close(f1);

readln;

end.