Задано: массив 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;