Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím.

program baitap;

uses crt;

var A:ARRAY[1..225] of longint;

i,max:longint;

begin

write('nhap 4 so');

for i:=1 to 4 do read(A[i]);

max:=A[1];

for i:=1 to 4 do

if max < A[i] then max:=A[i];

write('so lon nhat la ',max);

readln;

readln;

end.

Đáp án :

program hotrotinhoc;

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

i,n,max: integer;

begin

for i:=1 to 4 do

begin

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

end;

max:=0;

for i:=1 to 4 do

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

write(max);

readln

end.

#tuandz:)