Написать программу для нахождения максимального из n чисел Помогите пожалуйста!

Проще некуда. Как дальше то учиться собираешься.. .

program q170577038;
var
 i, n: integer;
 a: array of integer;
begin
 Write('N = ');
 ReadLn(n);
 SetLength(a, n);
 for i := Low(a) to High(a) do
 begin
  Write('a[', i+1,'] = ');
  ReadLn(a[i]);
  if i = Low(a) then
   n := a[i]
  else
   if a[i] > n then
    n := a[i];
 end;
 WriteLn('Max = ', n);
 ReadLn;
end.

на тебе на питоне решение:



print max(список чисел)




а для паскаля - учись, а то на контрольной двойка будет

язык какой?

Program Maximum; const N=10; type Mas=array [1..N] of integer;var
A: Mas; i: integer; { Счетчик. цикла } Мах: integer; { Переменная для хранения величины максимального элемента } Imax: integer; { Переменная для хранения индекса максимального элемента }begin { Тело программы } { Заполним элементы массива значениями датчика случайных чисел и выведем весь получейный массив на экран в одном цикле }

Randomize; for i:= 1 to N do begin A[i]:= -50+Random(101);

write(A[i]:5)

end; writein: { Поиск максимального элемента и его индекса в массиве } Imax:=l: { Сначала считаем, что первый элемент массива и есть максимальный } Мах: =А [1]; { Его индекс и величину записываем соответственно в переменные Imax и Мах }

for i: = 2 to N do { Сравним нашего кандидата в максимумы со всеми остальными элементами массива (со второго до последнего) }

if Мах < A[i] then { Если наш кандидат в максимумы оказался меньше текущего элемента.. . }

begin Max:=A[i]; { ...то будем считать теперь кандидатом в максимумы текущий элемент}

Imax:=i { Запомним его значение и индекс в переменных Мах и Imax }

end; writeln ('Максимальный элемент в массиве=', Мах: 5); writeln('Его индекс=', Imах: 5); readln end.