Программа определения максимального элемента в одномерном массиве, заполненном с клавиатуры.

Program Massiv;
 uses wincrt;
 
const n=100;   {допустимое число элементов массива}
 var
 mas: array [1..n] of integer;
 i,m,max,nomer:integer;
begin
 Write('Введите количество элементов массива ');
 readln(m);
Writeln('Введите ', m, ' элементов массива через пробел: ');
 For i:=1 to m do         {ввод массива с клавиатуры}
  read(mas[i]);
max:=mas[1];
nomer:=1;
for i:=1 to m do
 begin
  if max<mas[i] then
  begin
   max:=mas[i];
   nomer:=i;
  end;
 end;
 Writeln('Максимальный элемент массива  ', max, ' его номер в массиве ', nomer);
 end.

 
DMC Firewall is a Joomla Security extension!