Question

Viết chương trình nhập vào mảng A. Tìm phần tử có giá trị lớn nhất của mảng

Answer 1

https://i.imgur.com/EuBcZ0b.jpg

Answer 2

uses crt;

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

i,n,ln:integer;

begin

clrscr;

write('nhap chieu dai cua day:'); readln(n);

for i:=1 to n do
begin

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

end;

{------------xuat---------------}

for i:=1 to n do

write(a[i],' ');

{---------xu-ly----------------}

ln:=a[1];

for i:=1 to n do

if ln<a[i] then ln:=a[i];

write(ln);

readln;

end.

Answer 3

Đề không yêu cầu in ra A[i] nên bạn Phước Thịnh không cần for i:=1 to n do write(a[i],' '); đâu nhé.