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

В од­но­мер­ном массиве А(10) найти мак­си­маль­ный элемент
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы