Массив состоит из 15 случайных чисел,получить новый массив,в котором элементы первого...

Question

Массив состоит из 15 случайных чисел,получить новый массив,в котором элементы первого массива имеют противоположный знак.В полученном массиве удвоить элементы,которые меньше -50.

Answer 1

Program programma;
uses crt;
var i: integer;
    a:array [1..15] of integer;

begin clrscr;
      randomize;
     
      for i:=1 to 15 do          
          a[i]:=random(200)-100;

     
      writeln('Массив:');

      for i:=1 to 15 do          
      write(a[i]:5);
     

      for i:=1 to 15 do  
      begin
      a[i]:=-a[i];
      if  (a[i]<-50) then  a[i]:=a[i]*2;<br>      end;
      
writeln;
writeln;
writeln('Новый массив:');
for i:=1 to 15 do          
      write(a[i]:5);    
READLN;
end.