Лабораторная работа №5 Одномерные массивы Вариант №8

Задание 1:

8. Дан одномерный массив чисел. Определите сумму его элементов.

1.1Работа программы

Вводятся исходные данные: массив через оператор random.

1.2Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 1

Таблица 1 – Назначение переменных

Переменная	Тип	Назначение
n	real	Размер массива
i	real	Номер элемента
sum	real	Сумма элементов
a	integer	Массив

1.3Блок – схема алгоритма программы

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

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

program summ;

const

n=10;

type

tarray=array[1..n] of integer;

var i, sum: integer;

a: tarray;

begin

sum:=0;

writeln ('Исходный массив');

for i:=1 to n do begin

a [i]:=random(100);

sum:=sum+a[i];

write (a[i]:3,' ');

end;

writeln ('Сумма элементов массива равна =',sum);

readln;

end.

1.5 Тестирование

Задаем массив, проверяя корректность работы программы. Программа ведёт себя корректно.

1:

Исходный массив

24 56 32 47 32 54 2 7 32 89 43

Сумма элементов массива равна = 418

Задание 2:

8. Удалить все элементы, начиная с k1-го по k2-ой. Сделать проверку корректности ввода значений k1 и k2, если ввод некорректный, то вывести сообщение об ошибке и закончить работу.

1.1Работа программы

Вводятся исходные данные: массив оператором random и переменные k1 и k2 с клавиатуры.

1.2Назначение переменных

Назначение переменных, используемых в задаче, приведено в таблице 2.

Таблица 2 – Назначение переменных

Переменная	Тип	Назначение
n	real	Размер массива
i	real	Номер элемента
k1, k2	real	Номера элементов удаления
a	integer	Массив

1.3Блок – схема алгоритма программы

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

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

program udalenie;

const

n=10;

type

tarray=array[1..n] of integer;

var i, k1, k2: integer; a: tarray;

begin

writeln ('udalenie elementov massiva');

writeln ('ishodnui massiv');

for i:=1 to n do begin

a [i]:=random(100); write (a[i]:3,' ');

end;

writeln; writeln ('vvedite nomer s kotorogo nachat udalenie:'); readln (k1);

writeln ('vvedite nomer do kotorogo delat udalenie:'); readln (k2);

if (k1>k2) or (k2>n) then writeln ('vvod ne korrektnuy');

begin for i:=1 to k1 do write (a[i]:3,' ');

for i:=k2 to n do write (a[i]:3,' ');

readln; end;

end.