Question

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

Answer 1

var a: array[1..15] of Integer;
      i: Integer;
Begin   for i := 1 to 15 do a[i] := random(100)-random(100);
   writeln(a);
   for i := 1 to 15 do begin
     a[i] := 0-a[i];
     if a[i]<-50 then a[i] := a[i]*2;
    end;
   writeln(a);
 End.

Answer 2

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;
      end;
      
writeln;
writeln;
writeln('Новый массив:');
for i:=1 to 15 do          
      write(a[i]:5);    
READLN;
end.