Bài 1: Viết chương trình nhập vào một mảng gồm N số nguyên. Tính tổng các phần tử đã nhập.
Bài 2: Viết chương trình nhập vào một mảng gồm N số nguyên. Tìm vị trí của phần tử lớn nhất.
Bài 3: khai báo biến mảng trong pascal với mô tả sau:
Biến mảng có tên theo quy tắc đặt tên, gồm 15 phần tử, mỗi phần tử là biến có kiểu số thực, chỉ số phần tử cuối là 100.
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;