Viết chương trình sử dụng biến mảng để nhập 10 số bất kì từ bàn phím

Viết chương trình 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. Độ dài của dãy cũng được nhập từ bàn phím.

In ra màn hình tổng các giá trị là số chẵn.

Câu 1:

program bt;

uses crt;

var a:array[1..1000] of integer;

i,n,tong,tich:integer;

begin

clrscr;

write['Do dai cua day la:']; readln[n];

for i:=1 to n do

begin

write['a[',i,']=']; readln[a[i]];

end;

tong:=0; tich:=1;

for i:=1 to n do

begin

tong:=tong + a[i];

tich:=tich*a[i];

end;

write['tong cac so tu nhien nhap tu ban phim:',tong];

writeln;

write['tich cac so tu nhien nhap tu ban phim:',tich];

readln

end.

Câu 2:

program bt;

uses crt;

var a:array[1..1000] of integer;

i,n:integer;

begin

clrscr;

write['nhap do dai day so:']; readln[n];

writeln['nhap cac phan tu cua day:'];

for i:=1 to n do

begin

write['a[',i,']=']; readln[a[i]];

end;

readln

end.

Vật mang tin là gì [Tin học - Lớp 6]

1 trả lời

Một gigabyte bằng bao nhiêu megabyte [Tin học - Lớp 6]

2 trả lời

Khách

Hãy nhập câu hỏi của bạn vào đây

Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!

Bai 1:

uses crt;

var i: byte;

a: array[1..100] of integer;

begin

clrscr;

for i:=1 to 10 do begin write['a[',i,']=']; readln[a[i]]; end;

readln

end.

Bai 2: 

uses crt;

var i,s: byte;

a: array[1..100] of integer;

begin

clrscr;

for i:=1 to 10 do begin write['a[',i,']=']; readln[a[i]]; s:=s+a[i]; end;

write['Tong=',s];

readln

end.

Bài 9: Làm việc với dãy số – Câu 5 Trang 78 SGK Tin học 8. Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số.Độ dài của dãy cũng được nhập từ bàn phím

Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số.Độ dài của dãy cũng được nhập từ bàn phím

Lời giải : 

uses crt;

var n,i:integer;

a:array[1..100] of integer;

begin

clrscr;

write[‘nhap so phan tu cua day:’];readln[n];

for i:=1 to n do

Quảng cáo - Advertisements

begin

write[‘a[‘,i,’]=’];readln[a[i]];

end;

writeln[‘day so da nhap:’];

for i:=1 to n do write[a[i]:2];

readln;

end.

• lý thuyết
• trắc nghiệm
• hỏi đáp
• bài tập sgk

viết chương trình sử dụng biến mảng nhạp dãy số gồm 10 phần tử và in các phần tử đó ra màn hình?

viết chương trình nhập vào 1 dãy số nguyên, tìm ra số nhỏ nhất của dãy?

nêu cách khai bào biến mảng trong pascal và các thành phần của nó?

mai thi rui cần rất gấp ai trả lời nhanh tặng 10 gp

Các câu hỏi tương tự