лабораторная работа / LAB_5

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

Одномерные массивы.

Цель работы: Научиться работать с одномерными массивами.

Задание: Дан массив х(20) переписать в массив у все положительные элементы х и в массив z все отрицательные элементы.

Блок-схема:

Программа:

program lab5;

var i,n1,n2:integer;

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

begin

for i:=1 to 20 do

begin

write('x(',i,')=');

read(x[i]);

writeln;

end;

n1:=1;n2:=1;

for i:=1 to 20 do

begin

if x[i]>0 then

begin y[n1]:=x[i];inc(n1);end;

if x[i]<0 then

begin z[n2]:=x[i];inc(n2);end;

end;

writeln('y=');

for i:=1 to 20 do if i<n1 then write(y[i],' ');

writeln;

writeln('z=');

for i:=1 to 20 do if i<n2 then write(z[i],' ');

end.

Из массива X[20] = (20,-3,5,8,-3,-5,4,6,-43,432,4,0,-5,45,-45,6,9,0,0,-32)

Получили результат:

Y=

20 5 8 4 6 423 4 45 6 9

Z=

-3 -3 -5 -43 -5 -45 -32, что соответствует условию задачи