давно
Старший Модератор
31795
6196
29.05.2008, 23:59
общий
это ответ
Здравствуйте, Верещагин Михаил!
Программа в приложении.
Удачи!
Приложение:
const n=10;var a:array[1..n]of integer; b,c:integer;begin {создаем массив и выводим} randomize; c:=1; for b:=1 to n do begin a[b]:=random(20)-10; write(a[b]:3); if abs(a[c])<abs(a[b])then c:=b;{ищем индекс на лету} end; writeln; {выводим результат} writeln(‘Index:‘,c:5);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.