Question

Помогите написать кусок программы (паскаль) ПО этой блок схеме.

Answer 1

m:=a[1];
for i:=1 to n do
 if m<a[i] then m:=a[i];
writeln(m);