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.
Во первых почему в этот раздел ? В задачи надо было (переношу). Во вторых, в следующий раз ползуйся тегами, в третьих
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]);
Cпасиб большое, все понял, буду знать!
п.с извините что не так