Тема

Составление и отладка программы обработки линейного массива.

Задание

По индивидуальному заданию составить и отладить программу циклического процесса с линейным массивом. В программе предусмотреть вывод на печать исходного и полученного массивов.

Задан массив B[ K]. Создать массив E, в который переписать по порядку сначала положительные элементы, затем отрицательные.

Алгоритм

Дважды организуем цикл по массиву B. Сперва смотрим если элемент массива B положительный, то определяем его в массиве E, после чего некоторую переменную инкрементируем. Второй цикл проверяем на отрицательные переменные.

Контрольный пример

Проведем контрольный пример использования программы. Входные и выходные данные указаны ниже.

После ручной перепроверки видно, что программа работает согласно поставленному перед ней алгоритму.

Распечатка программы

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

const K=10;

var B,E:array[1..K] of integer;

n,m:integer;

begin

B[1]:=3;

B[2]:=2;

B[3]:=-3;

B[4]:=-54;

B[5]:=33;

B[6]:=-23;

B[7]:=34;

B[8]:=33;

B[9]:=-13;

B[10]:=-23;

m:=1;

for n:=1 to K do

begin

if B[n]>0 then

begin

E[m]:=B[n];

m:=m+1;

end;

end;

for n:=1 to K do

begin

if B[n]<0 then

begin

E[m]:=B[n];

m:=m+1;

end;

end;

for n:=1 to m-1 do

begin

writeln('E[',n,']=',E[n]);

end;

read(n);

end.

Распечатка исходных данных

B[1]=3;

B[2]=2;

B[3]=-3;

B[4]=-54;

B[5]=33;

B[6]=-23;

B[7]=34;

B[8]=33;

B[9]=-13;

B[10:=-23;

Распечатка результатов

E[1]=3;

E[2]=2;

E[3]=33;

E[4]=34;

E[5]=33;

E[6]=-3;

E[7]=-54;

E[8]=-23;

E[9]=-13;