лабораторная работа / вар12 / Лаб5

Балаковский институт техники технологий и управления

Лабораторная работа №5

Вариант 12

Выполнил студент УИТ-2в

Балаково 2007 год.

Задание: Создать массив Y из отрицательных элементов массива Х и массив Z, из положительных элементов массива Х. Вывести новые массивы на экран.

k=k+1

y[k]=x[i]

m=m+1

z[m]=x[i]

да

нет

нет

да

Текст программы:

program lab5;

var

y,z,x:array[1..20] of real;

n,m,k,i:byte;

begin

Writeln('Введите количество элементов');

read(n);

Writeln('Введите массив');

for i:=1 to n do

begin

Read(x[i]);

end;

for i:=1 to n do

if x[i]<0 then

begin

k:=k+1;

y[k]:=x[i];

end

else

if x[i]>0 then

begin

m:=m+1;

z[m]:=x[i];

end;

writeln;

for i:=1 to k do

writeln(y[i]:1:1);

for i:=1 to m do

writeln(z[i]:1:1);

end.

Рис.1 Блок–схема программы