Question

viết chương trình nhập vào 30 số nguyên bất kì. Tìm số lớn nhất. Giúp mik gấp nha

Answer 1

uses crt;

var i, max: integer;

a: array [1..30] of integer;

begin

clrscr;

for i:=1 to 30 do

begin

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

end;

max:= a[1];

for i:=2 to 30 do

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

writeln( ' so lon nhat la: ' ,max);

readln

end.