вводится последовательность из n целых чисел

Ответ от Евгений[гуру]
program MaxElement;
uses
SysUtils;
var Ncount, maxI, maxNum: Integer;
N: array[0..1000] of Integer;
begin
Writeln('/****Программа елы палы*****/');
Writeln('');
Write('Введите количество N=');
Readln(Ncount);
maxNum := -100000000;
maxI := -1;
for i := 0 to Ncount - 1 do
begin
Write('N[', i, ']=');
Readln(N);
if (N > maxNum) then
maxI := i;
end;
end;
Writeln('');
Writeln('Максмимальный элемент');
Writeln(N[maxI]);
Readln;
end.

Ответ от Пользователь удален[новичек]
var max,i,a,n:integer;
begin
max:=-32000; {щщорт забыл минимум для integer}
write('n>');readln(n);
for i:=1 to n do
begin
write('next number>');
readln(a);
if a>max then max:=a;
end;
writeln('max=',max);
readln;
end.
зы паскаль-это как велосипед: и захочешь - не забудешь) )
ззы извини ели где запятую пропустил, ок?
зззы парни, в условии не сказано ничего о массивах))

Ответ от Евгений Раковец[гуру]
const n = N;
var
i,x:integer;
k:array = (1..n) of (1,2,3,...n-1,n);
begin
x=k[n];
for (i=1, i>=n)
begin
if k>x then k=x;
end;
write x
end.

Ответ от Денис[эксперт]
Uses crt;
Var mas : array [1..10] of integer;
N,MAX,I : Integer;
Begin
&nbsp &nbsp &nbsp &nbsp ClrScr;
&nbsp &nbsp &nbsp &nbsp Write('VVEDI KOL-VO CHISEL : '); ReadLn(N);
&nbsp &nbsp &nbsp &nbsp WriteLn('VVEDI CHISLA CHEREZ PROBEL');
&nbsp &nbsp &nbsp &nbsp For I:=1 To N Do Read(mas);
&nbsp &nbsp &nbsp &nbsp max:=MAS[1];
&nbsp &nbsp &nbsp &nbsp For I:=1 To N Do
&nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp If MAS > MAX Then MAX:=MAS;
&nbsp &nbsp &nbsp &nbsp WriteLn('MAX = ',MAX);
ReadKey
End.

Ответ от 3 ответа[гуру]