массивы,не понятное задание....

[ReFF]

Одномерного массива определить наибольшие отрицательное (максимально ближе к 0)элемент,который меньше -3,и индекса.Анализировать все массивные элементы я задание не могу понять :/// если можно помогите...

[VIK_aka_TOR]

у одномерного массива определить наибольшее отрицательное число, который лежжит в промежутке (- бесконечность , -3) так же данный элемент должен быть меньше индекса массива (судя по всему сравниваться будет величина по модулю)...

for i:=4 to n do
if (a[i] < -3) and (abs(a[i]) < i ) and (a[i] > max) then 
max:= a[i];

начинаем цикл с 4 изза условия abs(a[i]) < i так как у нас по модулю a[i] больше 3... как то так... изначально нужно присвоить переменной max какое либо очень маленькое отрицательное число...

[ReFF]

PHP код:

Program  masiv;

uses crt;

Var a:array[1..1000]  of integer;

max,n,i:integer;

Begin

Readln(n);

randomize;

For i:=4 to n do

if (a[i] < -3) and (abs(a[i]) < i ) and (a[i] > max) then 

max:= a[i];

write(a[i]);

End; 


так? (

[VIK_aka_TOR]

скорее так

Var a:array[1..1000]  of integer;
max,n,i:integer;
flag: boolean;
Begin
flag := false;
Readln(n);
randomize;
max:=-999999999;
for i:=1 to n do
begin
a[i]:=random(20)-20;
writeln('a[',i,']=',a[i]);
end;
For i:=4 to n do
if (a[i] < -3) and (abs(a[i]) < i ) and (a[i] > max) then
begin
max:= a[i];
flag:=true;
end;
if flag then
writeln('max = ',max)
else writeln('число удовлетворяещее условию не найдено.')
End.

не забываем жать весы при оказаной помощи...