Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.
Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.
Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.
Var a:array[1..1000] of longint;
n:integer; max:longint; i:byte;
begin
randomize;
Writeln('vvedite kol-vo elementow');
repeat
readln(n);
until ((n>=1) and ( n<=1000));
for i:=1 to n do
begin
begin
a[i]:=random(10000);
Write(i,' chlen = ');
Write(' ', a[i],' ');
end;
Writeln;
end;
max:=a[1];
for i:=2 to n do
begin
if a[i]>max
then
max:=a[i];
end;
Writeln('maxmal = ',max);
readln;
end.