ДАЮ 40 БАЛОВ ПОЖАЛУЙСТА ПОМОГИТЕ !!!!!!!
В таблице Dat представлены данные о количестве ребят, ходивших в поход вместе с туристическим клубом «Азимут» (Dat[1] — число ребят в 2001 году; Dat[2] — в 2002 году и т. д.). Определи, какое число будет напечатано в результате работы следующей программы.
Паскаль
Var n, w: integer;
Dat: array[1..10] of integer;
Begin
Dat[1]:=16;
Dat[2]:=21;
Dat[3]:=24;
Dat[4]:=51;
Dat[5]:=14;
Dat[6]:=26;
Dat[7]:=30;
Dat[8]:=12;
Dat[9]:=12;
Dat[10]:=36;
w:=0;
for n:=1 to 10 do
if Dat[n]>w then
begin
w:=Dat[n]
end;
writeln (w);
End.