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

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

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

Вариант 14

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

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

Задание: В массиве С поменять местами первый и последний, второй и предпоследний и т.д. элементы местами. Вывести новый массив на экран.

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

program lab5;

var

c:array[1..20] of real;

buffer:real;

n,i,m:byte;

begin

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

read(n);

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

for i:=1 to n do

begin

Read(c[i]);

end;

m:=round(n/2);

for i:=1 to m do

b

m=round(n/2)

egin

buffer:=c[i];

c[i]:=c[n-i+1];

c[n-i+1]:=buffer;

e

c[n-i+1]=buffer

nd;

Writeln('Новый массив');

f

buffer=c[i]

or i:=1 to n do

writeln(c[i]:1:0);

e

c[i]= c[n-i+1]

nd.

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