Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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.
Câu 1: Cú pháp khai báo mảng trong pascal:
Var <tên mảng>:array[1..n] of <kiểu dữ liệu>;
Cây 2: Khai báo mảng c gồm 20 phần tử kiểu số thực:
Var c:array[1..20] of real;
Lời giải :
Bài 1 :
program hotrotinhoc ;
var a : array[1..9999] of in teger ;
i,N,tong : integer ;
begin
write('Nhap gia tri cua cac phan tu');
write('Nhap do dai cua mang :'); readln(N);
for i:= 1 to N do
begin
write('a[',i,'])='); readln(a[i]);
end;
tong:=0;
for i:= 1 to N do
tong := tong + a[i] ;
write('Tong cac phan tu la :',tong);
readln
end.
Bài 2 :
program hotrotinhoc ;
var a : array[1..9999] of in teger ;
i,N,SLN : integer ;
begin
write('Nhap gia tri cua cac phan tu');
write('Nhap do dai cua mang :'); readln(N);
for i:= 1 to N do
begin
write('a[',i,'])='); readln(a[i]);
end;
SLN:= a[1] ;
if SLN < a[i] then write('Phan tu lon nhat la',SLN);
readln
end.
Câu 3 :
Đoạn khai báo : var a : array[1..15] of real ;
Chỉ số phần tử cuối thì cần viết cả chương trình thì mới có thể là nhập phần tử cuối là 100 bạn nhé.
Bài 1:
program andanh;
uses crt;
var n,i,tong: integer;
a: array [1..100] of integer;
begin
clrscr;
tong:= 0;
write('So phan tu trong mang: ');readln(n);
for i:= 1 to n do
begin
write('So thu ',i,': ');
readln(a[i]);
end;
for i:= 1 to n do
tong:= tong + a[i];
write('Tong cac phan tu la: ',tong);
readln
end.
Bài 2:
program andanh;
uses crt;
var n,i,max:integer;
a: array[1..100] of integer;
begin
clrscr;
write('So phan tu trong mang: ');readln(n);
for i:= 1 to n do
begin
write('Phan tu thu ',i,': ');
readln(a[i]);
end;
max:= a[1];
for i:= 2 to n do
if max < a[i] then max:= a[i];
write('Vi tri cua phan tu lon nhat: ');
for i:= 1 to n do
if a[i] = max then write(i);
readln
end.
Bài 3:
a: array[86..100] of real;
var M: array [1..100] of real;