Viết đoạn lệnh nhập giá trị các phần tử của mảng và in các phần tử của mảng
Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các yêu cầu sau
a) Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực
b) Phần tử thứ năm của mảng A được gắn giá trị là 8
c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhập
Câu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiên
Câu 3: Cho mảng A chứa các giá trị sau
A | 17 | 13 | 20 | 10 | 15 |
I | 3 | 7 | 5 | 6 | 7 |
a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêu
b) Cho các câu lệnh sau:
A[2]:= A[3] + A[5];
A[9]:= A[6] + A[7];
Dựa vào bảng trên hãy tính giá trị các phần tử A[2], A[9]
Giúp em với ạ chiều nay thi rồi huhu
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
Viết chương trình nhập mảng A gồm N phần tử (tối đa 50 phần tử) a) Nhập các giá trị cho các phần tử của mảng. b) In phần tử là số chẵn có trong mảng và cho biết tổng của các số chẵn đó.
Program HOC24;
var a: array[1..50] of integer;
i,n: byte;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',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
begin
write(a[i],' ');
t:=t+a[i];
end;
writeln;
write('Tong cac phan tu chan trong day la: ',t);
readln
end.
Viết chương trình, nhập mảng A gồm n phần tử (có tối đa 50 phần tử) a) nhập các giá trị cho các phần tử của mảng b) in phần tử là số chẵn có trong mảng và cho biết tổng của các số chẵn đó
Program HOC24;
var i,n: byte;
t: longint:
a: array[1..50] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end;
t:=0;
write('Cac phan tu chan co trong mang la: ');
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i],' ');
t:=t+a[i];
end;
writeln;
write('Tong cac phan tu chan do la: ',t);
readln
end.
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
Viết đoạn lệnh nhập mảng a gồm n các số nguyên xuất ra màn hình các giá trị lớn hơn trung bình cộng các phần tử mảng
var a:array[1..1000] of integer;
n,i: integer;
tb: real;
begin
write('Nhap N = '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
tb:=tb/n;
for i:=1 to n do
if a[i] > tb then writeln(a[i]);
readln
end.
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 CT thực hiện các yêu cầu sau :
- Nhập các phần tử của mảng.
- In các phần tử của mảng.
- Tìm giá trị lớn nhất.
- Tìm giá trị nhỏ nhất.
- Tính tổng các phần tử dương hoặc âm.
uses crt;
var a:array[1..100]of integer;
i,n,max,min,t: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);
writeln;
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(max);
writeln(min);
readln;
end.
t:=0;
for i:=1 to n do
if a[i]<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Viết chương trình nhập 1 mảng số nguyên gồm n phần tử
- in ra các phần tử của mảng vừa nhập
- In ra các phần tử có giá trị chẵn
- Đếm xem có tất cả bao nhiêu phần tử chẵn. In ra tổng số phần tử chẵn
uses crt;
var n,i,chan,tonchan:integer;
a:array[1..100] of integer;
begin
write('nhap n '); readln(n);
for i:=1 to n do
begin
write('a[i]='); readln(a[i]);
end;
writeln("in cac phan tu trong mang");
for i:=1 to n do
begin
writeln(a[i]);
end;
writeln("in cac phan tu chan");
chan:=0;
for i:=1 to n do
if n mod 2=0 then begin writeln(a[i]); chan:=chan+1; end;
write('tong cac phan tu chan ',chan);
readln;
end.
- Viết chương trình nhập 1 mảng số nguyên gồm n phần tử
- In ra tất cả phần tử của mảng vừa nhập
- Đếm xem có bao nhiêu phần tử có giá trị là ước của 10.
- In ra các phần tử ở vị trí chẵn.
- In ra các phần tử ở vị trí lẻ.
Program HOC24;
var d,i,n: 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('Cac phan tu cua mang vua nhap la: ');
for i:=1 to n do write(a[i],' ');
writeln;
d:=0;
for i:=1 to n do if 10 mod a[i]=0 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri la uoc cua 10');
write('Cac phan tu o vi tri chan la: ');
for i:=1 to n do if i mod 2=0 then write(a[i],' ');
writeln;
write('Cac phan tu o vi tri le la: ');
for i:=1 to n do if i mod 2=1 then write(a[i],' ');
readln
end.