Câu 1: Viết chương trình Pascal 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. Tính tổng các phần tử của dãy số và in ra kết quả ra màn hình ? Câu 2: 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 và in ra kết quả màn hình số

snowyngo157

2 năm trước

Câu 1: Viết chương trình Pascal 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. Tính tổng các phần tử của dãy số và in ra kết quả ra màn hình ? Câu 2: 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 và in ra kết quả màn hình số lớn nhất ?

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

hoangchauqt1234

Câu 1:
program dev;
uses crt;
var a:array[1..100] of integer;
n,i,s:integer;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
s:=0;
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
for i:=1 to n do s:=s+a[i];
write('Tong: ',s);
readln;
end.
Câu 2:
program dev;
uses crt;
var a:array[1..100] of integer;
n,i,max:integer;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']: '); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
write('Gia tri lon nhat: ',max);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

liendo25112001

C1:

program mang;

uses crt;

var A:array [1..500] of integer;

n,i,T: integer;

Begin

clrscr;

write('Nhap do dai mang: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(A[i]);

T:=T+A[i];

end;

write('Tong = ',T);

readln

End.

C2:

program mang;

uses crt;

var A:array [1..500] of integer;

n,i,max: integer;

Begin

clrscr;

write('Nhap do dai mang: '); readln(n);

max:=1;

for i:=1 to n do

begin

write('A[',i,']='); readln(A[i]);

if max<A[i] then max:=A[i];

end;

write('So lon nhat: ',max);

readln

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Bộ ăn thịch là j giải jum mình

Chọn đáp án đúng và giải thích: 1, Almost all the tourist are really ____ by the beauty of Hue A, excited. B, impressed. C, interested. D, fond 2,Some writers can exactly describe things____ they have never seen A, where. B, when. C, that. D,who 3, The roses ____ he gave me are very beautiful A,who. B, where. C, which. ,When 4,I ____ any information from him for a long time A, don't hear. B, didn't hear. C , haven't heard. D, won't hear 5, Hong works much__ than we do A, harder. B, hardest. C, hard. D, more hardly Kèm theo lời giải thích giúp mình nhé

Mai có một số kẹo ít hơn 55 cái và nhiều hơn 40 cái. Nếu Mai đem số kẹo đó chia cho 5 hoặc chia đều cho 3 bạn thì cũng vừa chia hết. Hỏi Mai có bao nhiêu kẹo

Giúp mình trả lời câu này với ạ

Tập tính sinh học , điều kiện sống và một số đặc điểm sinh học của lợn và con trâu Cách nuôi liên hệ với điều kiện sống và một số đặc điểm của con lợn , con trâu Ý nghĩa kinh tế đối với gia đình và địa phương của con trâu và con lợn Giúp mk với , mk đang cần gấp

Đơn giản thì đây là cách để khịa con lợn kia nhanh nhất Cái tội không nghe t :) Vẽ một cô công chúa tóc ngắn, mặc váy ngắn, nói chung như avt của ng ở dưới phần bình luận Line màu đủ

hòa tan hết 4,87g hỗn hợp X gồm bột kẽm và bột nhôm cần 627,2g dụng dịch axit HCl 0,5M (D=1,12g/ml). Tính thành phần phần trăm khối lượng kim loại có trong hỗn hợp

Làm giúp mình phần b và c thôi ạ ^^ đại số nhé

Câu1: Khi dãn nở vì nhiệt mà bị ngăn cản chất lỏng sẻ như thế nào

Cho tam giác ABC vuông tại A đường cao AH. a) Chứng minh tam ABC đồng dạng với tam HBA. b) Chứng minh AB^2= BH.CH c) Từ H kẻ HM vuông góc với AC, HM vuông góc AB. Chứng minh AN.AB=AM.AC. Các bạn giải giúp mình bài này với. Mình đang cần gấp!

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến