ДЕРЖАВНИЙ КОМІТЕТ ЗВ'ЯЗКУ ТА ІНФОРМАТИЗАЦІЇ УКРАІНИ
УКРАЇНСЬКА ДЕРЖАВНА АКАДЕМІЯ ЗВ'ЯЗКУ ім. О.С.Попова
КИЇВСЬКИЙ ІНСТИТУТ ЗВ'ЯЗКУ
Факультет БАГАТОКАНАЛЬНОГО ЕЛЕКТРОЗВ'ЯЗКУ
заочна форма навчання
Спеціальність "Телекомунікаційні системи та мережі"
КОНТРОЛЬНА (КУРСОВА) РОБОТА №1
З дисципліни "Інформатика" Студентський квіток КЗ-00Б51
Варіант № 1 Студенткиа 3 (прискореного) курсу, академгрупа БЗ-33БП

1. Задание 1.1 Дан массив: Х=х1, х2, х3,…, хi,…, хn Требуется: преобразовать его так, чтобы левая половина массива содержала только отрицательные элементы, а правая только положительные элементы. Выдать на печать исходный и конечный массив.

Блок-схема алгоритма по первому заданию.

program Lab1Variant26;
uses crt;
const n=10; {Размерность массива}
var X,Y: array [1..n] of integer;
m: byte;
{Указывает на последний заполненый элемент результирующего массива}
i: byte; {Переменная используется для организации циклов}
begin
clrscr;
WriteLn('Ввод элементов массива');
{Ввод входных данных}
for i:=1 to n do
begin
write('Введите элемент X[',i,']=');
readln(X[i]);
end;
m:=1;
{Перенос отрицательных элементов}
for i:=1 to n do
if X[i]<0 then
begin
Y[m]:=X[i];
m:=m+1;
end;
{Перенос положительных элементов}
for i:=1 to n do
if X[i]>=0 then
begin
Y[m]:=X[i];
m:=m+1;
end;
{Вывод результатов на экран}
Writeln;
Writeln('Исходный массив:');
for i:=1 to n do write(X[i],' ');
Writeln;
Writeln('Массив-результат:');
for i:=1 to n do write(Y[i],' ');
WriteLn;
writeLn('Нажмите любую клавишу для продолжения');
Repeat until KeyPressed;
end.