Домашняя работа на 15-17 ноября

 Повторить домашнюю работу за октябрь, будет тест  и выписать в тетрадь и выучить задачу о нахождении максимального элемента

program ex26;

var a:array[1..10]of integer;
N,i,max:integer;
 
begin
 
 writeln('ввести элементы  ');

 for i:=1 to 5 do readln(a[i]); {считываем сам массив}

  max:= a[1] ;

 for i:=2 to 5 do if a[i] > max then max:= a[i] ;

 writeln('MAX = ', a[i]);

end.