BL
1
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
14 tháng 7 2020
1: nhập vào một mảng A gồm N số nguyên
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
2: in ra màn hình số đầu tiên số thứ hai ...số thứ n của dãy
for i:=2 to n do
write(a[i]:4);
3: sắp xếp theo thứ tự tăng dần hoặc giảm dần in ra dãy số đã sắp xếp
*Tăng dần:
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);
*Giảm dần:
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);
4: Tìm max ,min
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);
5: Đếm xem mảng có bao nhiêu số chẵn, số lẻ
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem)
else inc(dem1);
end;
writeln('So luong so chan la: ',dem);
writeln('So luong so le la: ',dem1);
6 tháng 9 2017
Sắp xếp theo thứ tự đơn vị xử lí văn bản từ nhỏ đến lớn: Kí tự - từ - câu - dòng - đoạn văn bản.
Đáp án: B
6 tháng 1 2022
Các đơn vị đo dung lượng nhớ theo thứ tự từ nhỏ đến lớn là:
Byte, Kilobyte, Megabyte, Gigabyte, Terabyte…
Thứ tự các bội số của byte là:
Kilobyte, Megabyte, Gigabyte, Terabyte…
Có mấy dạng dữ liệu thông tin
Dạng chữ và số. dạng hình ảnh, dạng âm thanh
Từ còn thiếu trong câu dưới đây là: __________ là những gì mang lại sự hiểu biết về thế giới xung quanh và chính bản thân mình.
Thông tin
Tt giúp mk nka !
5 tháng 4 2020
uses crt;
var a:array[1..100]of integer;
i,n,k,max,min,t,tam,j,dem:integer;
begin
clrscr;
{----------------------------------cau-a--------------------------------}
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap k='); readln(k);
{----------------------------------cau-b--------------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('gia tri lon nhat cua mang la: ',max);
writeln('vi tri cua no trong day la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
{----------------------------------cau-c--------------------------------}
writeln;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('gia tri nho nhat cua mang la: ',min);
writeln('vi tri cua no trong day la: ');
for i:=1 to n do
if min=a[i] then write(i:4);
{----------------------------------cau-d--------------------------------}
writeln;
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+sqr(a[i]);
writeln('tong binh phuong cac phan tu o vi tri chan la: ',t);
{----------------------------------cau-e--------------------------------}
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;
writeln('mang duoc xep theo thu tu tang dan la: ');
for i:=1 to n do
write(a[i]:4);
{----------------------------------cau-f--------------------------------}
writeln;
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
writeln('trong mang co ',dem,' gia tri bang ',k);
readln;
end.
1 Bit = Binary Digit
8 Bits = 1 Byte
1000B (Bytes) = 1KB (Kilobyte)
1000KB (Kilobytes) = 1MB (Megabyte)
1000MB (Megabytes) = 1GB (Gigabyte)
1000GB (Gigabytes) = 1TB (Terabyte)
1000TB (Terabytes) = 1PB (Petabyte)
1000PB (Petabytes) = 1EB (Exabyte)
1000EB (Exabytes) = 1ZB (Zettabyte)
1000ZB (Zettabytes) = 1YB (Yottabyte)
1000YB (Yottabytes) = 1BB (Brontobyte)
1000BB (Brontobytes) = 1GeB (Geopbyte)