Пожалуйста,срочно!!!! Решить в pascalABC. Cоставить программу,выводящую массив,состоящий...

Question

Пожалуйста,срочно!!!!
Решить в pascalABC.
Cоставить программу,выводящую массив,состоящий только из чисел больше заданного.Элементы массива вводятся с клавиатуры.

Comments

ghbdtn

---

привет

Answer 1

Я уж не силен в этой программе
но вот вроде должно получиться
var
  a, b : array [1..16] of Integer;
begin
  for var i := 1 to 16 do  
   a[i] := ReadLnInteger('a[' + i + '] =');  
 WriteLn('Массив A = ', a);
   b := a;  
 Swap(b[2], b[5]);  
  Swap(b[4], b[9]);  
  Swap(b[7], b[15]);  
  Swap(b[9], b[16]); // повторяем обмен 9, если что?  
 WriteLn('Массив B = ', b);
 end.