Консультация № 138528
29.05.2008, 17:31
0.00 руб.
0 1 1
Уважаемые эксперты, помогите, пожалуйста, составить программу, формирующую массив вещественных чисел и найти индекс максимального по модулю элемента массива. Заранее благодарен.

Обсуждение

давно
Старший Модератор
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.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа