viêViết chương trình nhập 10 số nguyên từ bàn phím .in ra mành hình dãy số vừa nhập
Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ
viết trương chình nhập N số nguyên từ bàn phím in ra màn hình tổng các số cần nhập
HELP ME
Viết chương trình nhập từ bàn phím dãy số nguyên N (N<=100). In ra màn hình dãy số vừa nhập
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
write(a[i]:4);
readln;
end.
viết chương trình nhập từ bàn phím dãy số nguyên N (N<=100). in ra màn hình số vừa nhập
Chưntg trình:
repeat
write('So phan tu cua day A (N<=100), N= *);
readln(N);
until (N>0) and
(N<=100);
for i:= 1 to N do
begin
{kiem tra cac phan tu cua day khi nhap vao}
Trong trường hợp số phần tử nhập vào và giá trị các phần tử của dãy A không thỏa mãn điều kiện thì chương trình sẽ có thông báo mời nhập lại. Chẳng hạn, trong các trường hợp sau đây:
A[1] = 12
A [ 2] = 2000 thì chương trình đưa ra yêu cầu Moi nhap lai A[2]= 800 A[3 = 17
A [ 4] = -1500 thì chương trình đưa ra yêu cầu Moi nhap lai A[4]= -200 A[5] =31 A [ 6 = 5 A[7 = 350
Kết quả chương trình đưa ra thông báo (Hình 64):
So luong so chan: 4
So Luong so le: 3
So luong so nguyen to: 3
Program HOC24;
var ni,: integer;
a: array[1.32000] of integer.;
Begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' ');
readln
end.
Viết chương trình nhập mảng gồm N số nguyên từ bàn phím và in ra màn hình các dãy số vừa nhập đó
program Nhapmang;
const MAX_N = 100;
var A: array[1..MAX_N] of integer;
N, i:integer;
begin
write('Nhap so phan tu: '); readln(N);
for i:= 1 to N do begin
write('Nhap phan tu ', i, ': ');
readln(A[i]);
end;
writeln('Day so vua nhap la:');
for i:= 1 to N do
write(A[i], ' ');
end.
a) 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ố nhỏ nhất.
b) 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.
program hello;
uses crt;
Var n,i,j,k: integer;
a: array[1..50] of integer;
begin;
a[1]:=k;
Readln(n);
For i:=1 to n do
Begin;
Writeln('nhap a[',i,'] '); Readln(a[i]);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then k:=a[j];
Writeln('gia tri lon nhat la', k);
end.
Viết chương trình nhập dãy n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và lớn nhất với n được nhập từ bàn phím
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.
Program HOC24;
var a: array[1..32000] of integer;
i,max,min,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]; min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('So nho nhat la :',max);
write('So lon nhat la: ',min);
readln
end.
Hãy viết chương trình pascal nhập tên và lớp của học sinh, nhập từ bàn phím dãy số nguyên gồm n phần tử(n nhập từ bàn phím) n<12, tính trung bình cộng của dãy số trên và in ra màn hình, in ra màn hình các số nguyên tố của dãy số trên.
program TinhTBCTimSoNT;
var
ten, lop: string;
n, i, tong, dem: integer;
A: array [1..11] of integer;
trung_binh: real;
function LaSoNguyenTo(x: integer): boolean;
var
i: integer;
begin
if x < 2 then
LaSoNguyenTo := false
else if x = 2 then
LaSoNguyenTo := true
else if x mod 2 = 0 then
LaSoNguyenTo := false
else
begin
i := 3;
while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
i := i + 2;
LaSoNguyenTo := x mod i <> 0;
end;
end;
begin
// Nhập tên và lớp của học sinh
write('Nhập tên của học sinh: ');
readln(ten);
write('Nhập lớp: ');
readln(lop);
// Nhập dãy số nguyên và tính trung bình cộng
repeat
write('Nhập số phần tử của dãy số (n<12): ');
readln(n);
until n < 12;
tong := 0;
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(A[i]);
tong := tong + A[i];
end;
trung_binh := tong / n;
// In tên, lớp, dãy số và trung bình cộng ra màn hình
writeln('Học sinh: ', ten);
writeln('Lớp: ', lop);
write('Dãy số: ');
for i := 1 to n do
write(A[i], ' ');
writeln;
// In các số nguyên tố của dãy số ra màn hình
writeln('Các số nguyên tố của dãy số:');
for i := 1 to n do
if LaSoNguyenTo(A[i]) then
writeln(A[i]);
end.
Hãy viết chương nhập vào 1 dãy N số nguyên từ bàn phím ( N là Nguyên dương được nhập từ bàn phím vào N>10) . Tính và in ra màn hình trung bình của các số
program trungbinh;
uses crt;
var n,i: integer;
s:real;
A: array[1..1000] of integer;
begin
clrscr;
write('Nhap do dai day: '); readln(n);
writeln('Nhap gia tri cua day: ');
S:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
S:=S+A[i];
end;
S:=S/n;
write('Trung binh cua cac so cua day do la: ',S);
readln;
end.
Câu 1. Viết chương trình thực hiện yêu cầu sau: a, Sử dụng mảng để nhập từ bàn phím các phân tử của 1 dãy số có kiểu số nguyên? Biết độ dài của dãy số được nhập từ bàn phím . b, In ra màn hình các số vừa nhập của dãy số đó. c, In ra màn hình số lớn nhất trong dãy số. Mn giúp mik với mik cần gấp.mik c.ơn
Var a:array:[1..1000] of integer;
i,n,max:integer;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
max:=a[1];
For i:=2 to n do
if a[i] > max then max:=a[i];
write('So lon nhat la ',max);
Readln
End.
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.
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.
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.