Предмет: Информатика, автор: Ghtvb

Дан массив А(n) . Измените элементы данного массива на противоположные по знаку.
Выведите на экран получившийся массив
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!
Среда ПаскальАВС

Ответы

Автор ответа: archery
0
//PascalABC.NET 3.1 сборка 1200
begin
    var a := ArrRandomInteger(ReadInteger('n ='), -50, 50);
    a.Println;
    a.Transform(x -> -x);
    a.Println;
end.
Автор ответа: Ghtvb
0
???????
Автор ответа: archery
0
что?
Автор ответа: Ghtvb
0
надо проще
Автор ответа: archery
0
куда уж проще
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Геометрия, автор: dhhehdjdh
РЕШИТЕ ПОЖАЛУЙСТА 35 БАЛЛОВ Отношение площади окрашенной части рисунка на рисунке к общей площади рисунка.
7 лет назад
Предмет: Информатика, автор: karinaahmadova14
resseksspamayt2030
Помогите пожалуйста дам 40 баллов ❤️ ПОЖАЛУЙСТА ​
7 лет назад
Предмет: Биология, автор: Whatimesono
б. Установите соответствие между органами и выполняемой ими функциями
ДАЮ 50 БАЛЛОВ!!!!​
7 лет назад
Предмет: Математика, автор: liz1408ka
Найдите корень уравнения x = −x+54/x+2
Если уравнение имеет более одного корня, в ответе укажите меньший из них.
10 лет назад
Предмет: Информатика, автор: ruslanarihin
прооошу помогите перевести этот код delphi в паскаль,плиииз





program TaskFormula;
uses
var x, a, xn, xk, dx, sum, multiplNegative: real;   
countNegative: integer;   
 j,m,f:real;   
y: Real;
begin 
writeln('a --> '); 
Read(a); 
writeln(' xn --> '); 
Read(xn); 
writeln(' xk --> '); 
Read(xk); 
writeln(' dx --> '); 
Read(dx);
  sum := 0; 
multiplNegative := 1; 
 countNegative := 0; 
 x := xn;
  While (x <= xk) do    begin    if (a+x < 0)  then    begin     f:=(a+x)*-1;     
f:=ln(f)*(-1);   
  j:= RoundTo(abs(a-sqr(x)) * f,-5);  
  end   
else     
 j:= RoundTo(abs(a-sqr(x)) * ln(a+x),-5);    
m:= Power(sqr(x),1/3)+ Power(a,1/5); 
    if j<0 then      begin      j:=j*(-1);     
 j:= Power(j, 1/3);     
 j:=j*(-1);   
end   
else     
 j:= Power(j, 1/3);
    y:= RoundTo(j/m,-5);   
write('x= ',x:5:3,'   ');   
 writeln('y= ',y:7:5);     
if y<0 then     
begin     
sum := sum + y;     
multiplNegative := multiplNegative * y;     
inc(countNegative);      
end;   
x:= x + dx;   
 end;     
writeln; 
 writeln('  y = ',countNegative); 
 writeln('y = ',sum:7:5); 
writeln(' y = ',multiplNegative:7:5);
  Readln;
end.
10 лет назад