cách truy cập đến phần tử của mảng, gán, nhập và in giá trị của mảng
ai giúp em với em cảm ơn ạ
Em hãy in ra các phần tử chẵn có trong mảng, biết số phần tử của mảng và giá trị của các phần tử của mảng được nhập từ bàn phím.
Uses crt;
var i,n: integer;
a: array[1..100] of longint;
begin clrscr;
readln(n);
for i:=1 to n do read(a[i]); readln;
write(a[i],' ');
readln;
end.
var a:array[1..1000] of integer;
i,n:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' = ');readln(a[i]);
end;
write('Cac phan tu chan trong mang la: ');
for i:=1 to n do
if a[i] mod 2 = 0 then write(a[i]:8);
readln
end.
viết chương trình nhập vào một mảng A gồm n số nguyên (n được nhập từ bàn phím)
in ra màng hình mảng số nguyên vừa nhập mỗi phần tử cách nhau ba khoảng trắng
tìm và in ra màn hình giá trị lớn nhất có trong mảng A vừa nhập. GIÚP EM VỚI MN ƠI!
Theo pascal ạ!! giúp em nha <3 cảm ơn rất nhiều ạ
1. viết chương trình con nhập và xuất một dãy (mảng)số nguyên có n phần tử
2. nhập số k. Tính trung bình cộng của các phần tử trong dãy có giá trị nhỏ hơn hay bằng k
3. xuất và đếm các phần tử là số nguyên tố có trong dãy
Câu 1:
program mangsonguyen;
var
a: array[1..100] of integer;
i, n: integer;
begin
writeln('Nhap so phan tu trong mang: ');
readln(n);
writeln('Nhap cac phan tu cua mang: ');
for i := 1 to n do
readln(a[i]);
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
end.
Câu 2:
program trungbinhcong;
var
a: array[1..100] of integer;
i, n, k, sum: integer;
avg: real;
begin
writeln('Nhap so phan tu trong mang: ');
readln(n);
writeln('Nhap cac phan tu cua mang: ');
for i := 1 to n do
readln(a[i]);
writeln('Nhap so k: ');
readln(k);
sum := 0;
for i := 1 to n do
begin
if a[i] <= k then
sum := sum + a[i];
end;
if sum > 0 then
begin
avg := sum / n;
writeln('Trung binh cong cac phan tu co gia tri <= ', k, ' la: ', avg:0:2);
end
else
begin
writeln('Khong co phan tu nao co gia tri <= ', k);
end;
end.
Câu 3:
program DemSoNguyenTo;
var
a: array [1..100] of integer;
i, j, n, count: integer;
laSoNguyenTo: boolean;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
write('Nhap cac phan tu cua mang: ');
for i := 1 to n do
readln(a[i]);
count := 0;
writeln('Cac so nguyen to trong mang la: ');
for i := 1 to n do
begin
laSoNguyenTo := true;
for j := 2 to (a[i] div 2) do
begin
if (a[i] mod j = 0) then
begin
laSoNguyenTo := false;
break;
end;
end;
if laSoNguyenTo and (a[i] > 1) then
begin
writeln(a[i]);
count := count + 1;
end;
end;
writeln('Tong so cac so nguyen to la: ', count);
readln;
end.
Viết chương trình khai báo mảng Chieucao gồm 10 phần tử. Viết đoạn chương trình nhập giá trị cho các phần tử của mảng Chieucao. Các cao nhân ơi giúp em vớiiiiiii ạ
Cho mình hỏi là : Cách nhập và in ra màn hình các phần tử của biến mảng .
Cảm ơn nhiều ạ !
Nhập:
For i:=1 to n do readln(a[i]);
Xuất:
for i:=1 to n do write(a[i]:4);
viết câu lệnh cho mảng A( số nguyên )
a) gán phần tử thứ 2 là 100 thứ 5 là 150
b) tăng giá trị cho phần tử thứ 1,3 lên 2 đơn vị
c) gán phần tử thứ 1,3 của mảng A và phần tử thứ 1,3 của mảng A và phần tử thứ 2 và 4 của mảng B
b) a[1]:=a[1]+2;
a[3]:=a[3]+2;
Em cần gấp lắm, mai em thi rồi.
Viết chương trình nhập vào một mảng gồm n số nguyên rồi thực hiện việc sau:
1.Tính tổng các phần tử của mảng.
2.Tính tổng các phần tử giá trị (+) của mảng.
3.Tính tổng các phần tử giá trị (-) của mảng.
4.Tính trung bình cộng các giá trị trong mảng.
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,t2: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];
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then t1:=t1+a[i];
if a[i]<0 then t2:=t2+a[i];
end;
writeln('Tong cac phan tu la: ',t);
writeln('Tong cac so duong la: ',t1);
writeln('Tong cac so am la: ',t2);
writeln('Trung binh cong cua day la: ',t/n:4:2);
readln;
end.
Em hãy viết chương trình nhập vào mảng A gồm 100 phần tử. tính và đưa ra màn hình tổng các phần tử không chia chết cho 2 trong mảng. Mn ơi giúp mình làm bài này với ạ TT mình cảm ơn mọi người nhiều!! (pascal nhé mấy bạn ơi
Var a:array[1..100] of integer;
i,s:integer;
Begin
For i:=1 to 100 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
If a[i] mod 2 <> 0 then s:=s+a[i];
End;
Write('Tong la ',s);
Readln;
End.
Nhập 1 mảng số nguyên từ bàn phím
1,In mảng vừa nhập ra màn hình,mỗi phần tử cách nhau 5 vị trí
2,Đếm và in ra các số chẵn âm
3,Đếm xem trong mảng có bao nhiêu phần tử bằng với 1 sô k được nhập từ bàn phím
4,Tìm giá trị nhỏ nhất của mảng
5,In ra toàn bộ các số nguyên dương có trong mảng
6,Sắp xếp mảng theo chiều giảm dần
Mọi ng giúp tui với!!!!