В массиве из 10 положительных и отрицательных элементов все четные положительные числа...

Question

В массиве из 10 положительных и отрицательных элементов все четные положительные числа заменить «2», а остальные оставить без изменения. Напечатать на экране начальный массив A и конечный массив B.

Comments

Pascal?

Answer 1

Ответ:

var

 arr:array[1..1000] of integer;

 i,N:integer;

begin

 write('Укажите размер массива - ');

 read(N);

 

 writeln;

 

 for i:=1 to N do

 begin

   arr[i]:=-50+random(101);

   

   write(arr[i],'  ');

 end;

 

 writeln;

 writeln;

 

 for i:=1 to N do

 begin

   if arr[i] mod 2=0 then arr[i]:=2;

   

   write(arr[i],'  ');

 end;

end.  

Объяснение: