Viết chương trình sử dụng biến mảng để sắp xếp n số nguyên nhập từ bàn phím ; ai giúp mk với mk cần gấp ; THANKS
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số nguyên. Độ dài của 1 dãy cũng được nhập từ bàn phím. Sắp xếp và biểu thị dãy theo thứ tự giảm dần
tham khảo:
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
tham khảo
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
uses crt;
var a:array[1..100]of integer;
i,n,tam,j:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
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.
viết chương trình pascal sử dụng biến mảng để nhập n số nguyên từ bàn phím in ra màn hình tổng các số đó ( N cũng được nhập từ bàn phím )
uses crt;
var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}
A:array[1..1000] of longint;
begin
clrscr;
Write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
Write('Cac so nguyen to co trong mang la: ');
for i:=1 to n do
begin
dem:=0;
for j:=2 to A[i]/2 do
if A[i] mod j=0 then dem:=dem+1;
if dem=0 then write(A[i],' ');
end;
end.
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(t);
readln;
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
inc(s,a[i]);
end;
writeln('Tong: ',s);
readln;
end.
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên A. Độ dài của dãy n cũng được nhập từ bàn phím với (0<n<=100)?
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;
readln;
end.
Viết chương trình Pascal sử dụng biến mảng để tính giá trị trung bình của n số nguyên nhập từ bàn phím.chiều dài của dãy cũng được nhập từ bàn phím.
viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình số lớn nhất ? (sử dụng biến mảng )
uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin
clrscr;
write('Nhap so n :'); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' la : '); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do if max<a[i] then max:=a[i];
write('So *** nhat trong mang la :', max);
min:=a[1];
for i:=2 to n do if min>a[i] then min:=a[i];
write('So nho nhat trong mang la :', min);
readln
end.
sử dụng free pascal viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy N số tự nhiên và viết ra màn hình? độ dài của dãy cũng được nhập từ bàn phím
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
readln;
end.
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của dãy N số thực
viết chương trình sử dụng biến mảng để nhập n số bất kì từ bàn phím và đưa ra màn hình số vừa nhập
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i;
int main()
{cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
return 0;
}
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím. In ra màn hình hiệu các số chẵn trong dãy số nguyên.
uses crt;
var a:array[1..100]of integer;
i,n,h:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
h:=0;
for i:=1 to n do
if a[i] mod 2=0 then h:=h-a[i];
writeln(h);
readln;
end.
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên. Độ dài của dãy cũng được nhập từ bàn phím.
In ra màn hình tổng các giá trị là số lẻ.
uses crt;
var a:array[1..1000000] of longint;
n,i,s: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]);
if a[i] mod 2=1 then inc(s,a[i]);
end;
write('Tong cac so le: ',s);
readln;
end.