это будет число равное 2230,вроде бы так
А где вопрос? Ну а так все это относится к Информации.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(10,-99,99); a.Println
end.
<u><em>Тестовое решение</em></u>
-12 -89 55 66 41 -31 17 -25 -34 -71
While w<>44 do
Begin
W:=sqrt(w+10/f);
F:=w+sqr(f);
End;
Твоя условия ! Но это не работает переполнение типа.
Program zadacha;
varA: array[1..10000] of integer;i,n,min,k: integer;
beginmin:=0;writeln('vvedite n');readln(n);for i:=1 to n do beginA[i]:=random(10000)-5000;write(A[i]:6);end;
min:=abs(A[1]);k:=1;for i:=1 to n doif abs(A[i])<min then beginmin:=A[i];k:=i;end;writeln();writeln('min=',min, ' N ', k);
end.