Дан массив целых чисел, содержащий 20 элементов - Turbo Pascal

Формулировка задачи:

Дан массив целых чисел, содержащий 20 элементов (массив ввести как типизированную константу). Записать в новый массив сначала все отрицательные числа затем все положительные числа и нули, сохраняя порядок их следования.

Код к задаче: «Дан массив целых чисел, содержащий 20 элементов - Turbo Pascal»

textual
program iuly;
 
const a: array [1..20] of integer =
  (5, -2, 4, 0, 5, -10, 1, -8, 9, 12, 45, -3, 0, 78, -5, 99, 21, -9, 10, 11);
 
var i, j: byte;
    b: array [1..20] of integer;
    loop : boolean;
 
begin
  j := 1;
  writeln('Source array:');
  for loop := true downto false do
    for i := 1 to 20 do
    begin
      if loop then write(a[i]:4);
      if (a[i] < 0) = loop
        then begin
          b[j] := a[i];
          inc(j)
        end
    end;
  writeln;
  writeln('Result:');
  for i := 1 to 20 do write(b[i]:4);
  readln
end.

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ