Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Массивы

Автор: Димасик 4.12.2006 20:52

program lab01;
uses crt;
var i,sh:integer;
m:array[1..50] of integer;
max:integer;
const a=-200;
b=200;
begin
ClrScr;
writeln('Задать масив случ. образом от -200 до 200');
writeln('Для генерации нажмите <ENTER>');
readln;
randomize;

for i:=1 to 50 do begin m[i]:=random(b-a)+a;
write(m[i]:3,'....');
sh:=sh+1;

if sh=10 then begin
readln;
writeln;
sh:=0;
end;



end;
max:=m[1];

for i:=1 to 50 do
if m[i]<max then max:=m[i];

writeln('Максимальный отриц. элемент по модулю m[',i,'] = ',max);
readln;
end.



ребят вот такой вопросик в конце программы стит цикл, который показывает максимальный элемент, а как сделать чтобы показывало еще и индекс этого элемента? не использую еще цикл, т.е с помощью одного?

Автор: klem4 4.12.2006 21:06

Во первых почему в этот раздел ? В задачи надо было (переношу). Во вторых, в следующий раз ползуйся тегами, в третьих

Цитата
4. Название вашей темы должно быть информативно!

При создании темы учтите, что название должно кратко отражать ее суть. Плодить топики с названиями "ПАМАГИТЕ!!!" или "ПОЧЕМУ?!?!" крайне не рекомендуется, и жестко карается модераторами.


Ну а
Цитата
Максимальный отриц. элемент по модулю
ищется так:


maxI := 0;

for i := 1 to 50 do
if (m[i] < 0) and ((maxI = 0) or ((abs(m[i]) > abs(m[maxI]))) then
maxI := i;

writeln('i = ', maxI, ' m[', maxI, '] = ', m[maxI]);

Автор: Гость 5.12.2006 10:49

Cпасиб большое, все понял, буду знать!
п.с извините что не так