Question

в од­но­мер­ном массиве А(10) найти мак­си­маль­ный элемент

Answer 1

var i,max:integer;a:array[1..10]of integer;beginfor i:=1 to 10 do readln(a[i]);max:=a[1];for i:=1 to 10 doif a[i]>max then max:=a[i];writeln(max);end.