Question

Em hãy viết chương trình thực hiện những việc sau:

a) Khai báo một mảng các phần tử thuộc kiểu số nguyên;

b) Nhập các phần tử của mảng từ bàn phím;

c) Hiển thị phần tử lớn nhất trong mảng.

Answer 1

Program Vidu;
Uses crt;

Var A:array[1..100] ò longint;

i,n,max:integer;
Begin
clrscr;

write('N= ');readln(n);
Writeln('Nhap gia tri cho mang A');
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]); { đọc vào giá trị cho A thứ i}
End;

max:=a[1];

for i:=1 to n do

if a[i]>ma then max:=a[i];

write('Phan tu lon nhat la ',max);

readln

end.