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.
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ự |