Задано: массив A=(a1,a2,...,an), T - заданное число.
Сформировать: массив B=(b1,b2,...,bn), состоящий из элементов массива, удовлетворяющих условию Ai>T.T), то для обозначения индексов массива B должна быть предусмотрена другая переменная.
Исходные данные:
N - размер массива;
A - массив размером N;
T - заданное значение;
Результат:
B - массив размером не больше N;
Y - число элементов массива B;
Вспомогательная переменная: I - индекс - управляющая переменная цикла.
Procedure MAS_NEW (n:integer;T:real;A:mas;var B: mas; var Y: byte);
{ где mas должен быть описан в главной программе в разделе описания типов , например так :
type mas = array[1..100 ] of real ;
тогда это будет процедура для суммирования двух одномерных массивов размером не более 100 элементов }
{ процедура включения в новый массив элементов, удовлетворяющих условию }
begin Y := 0; { обнуление ячейки под счетчик элементов массива В }
for i := 1 to n do
If A[ i ] > T then begin Y := Y+1; B[ Y ] := A[ i ] end;
end;