Пожалуйста,срочно!!!!
Решить в pascalABC.
Cоставить программу,выводящую массив,состоящий только из чисел больше заданного.Элементы массива вводятся с клавиатуры.
Решить в pascalABC.
Cоставить программу,выводящую массив,состоящий только из чисел больше заданного.Элементы массива вводятся с клавиатуры.
More Questions From This User See All
Answers & Comments
но вот вроде должно получиться
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.