Viết chương trình nhập dữ liệu từ dãy đối xứng vào mảng một chiều
Những câu hỏi liên quan
Viết chương trình nhập dữ liệu là ma trận đối xứng vào mảng hai chiều. Nhờ mn giúp mik vs ạ cảm ơn mn rất nhiều 😆😆
uses crt;
var a:array[1..100,1..100]of integer;
i,n,m,j:integer;
begin
clrscr;
readln(n,m);
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình nhập vào mảng một chiều C gồm có n số nguyên. Ghi mảng C vừa nhập vào tệp có tên là MANG3.TXT. Đọc dữ liệu từ tệp MANG3.TXT, in ra màn hình các số lẻ trong mảng.
Program HOC24;
var i,n: integer;
c: array[1..1000] of integer;
f: text;
begin
assign(f,'MANG3.TXT');
reset(f);
readln(f,n);
for i:=1 to n do read(f,c[i]);
close(f);
for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');
readln
end.
Đúng 3
Bình luận (0)
Viết chương trình nhập vào mảng một chiều C gồm có n số nguyên. Ghi mảng C vừa nhập vào tệp có tên là MANG3.TXT. Đọc dữ liệu từ tệp MANG3.TXT, in ra màn hình các số lẻ trong mảng.
viết chương trình thực hiện yêu cầu sau khai báo biến mảng tên là B gồm tối đa 25 phần tử, các phần tử có kiểu là số nguyên,sau đó nhập dữ liệu từ bàn phím vào mảng ?
uses crt;
var b:array[1..25]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
readln;
end.
Đúng 0
Bình luận (0)
Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n100. Hãy khai báo biến mảng trên?Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai100)a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)b) Tính tổng các phần tử chia hết cho 3c) In ra màn hình các số chẵn ở vị trí lẻ trong dãyhuhu giúp mình với TT
Đọc tiếp
Câu 1. Cho một dãy số gồm n số nguyên (cả âm và dương) với n<=100. Hãy khai báo biến mảng trên?
Câu 2. Viết chương trình nhập từ bàn phím một dãy gồm 10 số. Đưa ra màn hình số nhập thứ 5.
Câu 3. Viết chương trình nhập vào một mảng A (tối đa 15 giá trị) là các số nguyên (Ai<=100)
a) In mảng đã nhập (Mỗi giá trị cách nhau 1 dấu cách)
b) Tính tổng các phần tử chia hết cho 3
c) In ra màn hình các số chẵn ở vị trí lẻ trong dãy
huhu giúp mình với TT
Câu 1:
var a:array[1..100]of integer;
Câu 2:
uses crt;
var a:array[1..10]of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 10 do
write(a[i]:4);
readln;
end.
Câu 3:
uses crt;
var a:array[1..15]of integer;
i,n,t:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=15);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]<=100;
end;
writeln('Mang da nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i] mod 3=0 then t:=t+a[i];
writeln('Tong cac phan tu chia het cho 3 la: ',t);
writeln('Cac so chan o vi tri le trong day la: ');
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2=1) then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình thực hiện các yêu cầu sau :
a,Khai báo biến mảng DTB có số phần tử bằng sĩ số lớp em , các phần tử có kiểu dữ liệu số thực
b,Nhập dữ liệu cho mảng DTB từ bàn phím
c,Tính tổng giá trị các phần tử trong mảng
d,Thông báo kết quả ra màn hình
Giúp mình với , làm bằng pascal nhé!
'''python
a. DTB = []
siso = int(input("Nhập số lượng học sinh trong lớp: "))
b. for i in range(siso):
diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))
DTB.append(diem)
c. tong=sum(DTB)
d. print(f"Tổng điểm của lớp là: {tong}")'''
Đúng 0
Bình luận (0)
Cho mảng A có N phần tử đã nhập dữ liệu. Hãy viết đoạn chương trình tính tổng các số chẵn có trong mảng A.
C1 Viết Chương trình nhập vào một mảng số thực gồm n phần tử tính tổng các phần tử chẵn ( n được nhập tử bàn phím )
C2 Viết chương trình nhập vào một mảng số nguyên gồm n phần tử tính tích các phần tử có trong dãy số đó
Câu 1:
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
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
if a[i] mod 2=0 then t:=t+a[i];
writeln(t:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=1;
for i:=1 to n do
t:=t*a[i];
writeln(t:4:2);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập dữ liệu, xuất dữ liệu và tìm giá trị max của mảng 1 chiều A có n phần tử
uses crt;
var a:array[1..100]of integer;
n,i,max:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('Mang ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('Gia tri lon nhat la: ',max);
readln;
end.
Đúng 0
Bình luận (0)