Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Tufta1bVer01;
- const
- N = 50;
- type
- Tmas = array [0..N] of integer;
- var
- A, Atest, B : Tmas; // массив с последовательностью и второй массив с результатом
- count, index1 : integer;
- {процедура ввода}
- procedure Input (var Ai : Tmas ; c : integer);
- var
- j : integer;
- begin
- Ai[0] := 32768;
- for j := 1 to c do
- begin
- write ('Введите ',j,' число: ');
- readln (Ai[j]);
- end;
- end;
- {процедура вывода}
- procedure Output (Ai : Tmas; c : integer);
- var
- j : integer;
- begin
- writeln('последовательность:');
- for j := 1 to c do
- begin
- write (Ai[j],' ');
- end;
- writeln;
- writeln;
- end;
- {функция проверки условия}
- function f(elem1, elem2 : integer; var index : integer) : integer;
- var
- return : integer;
- begin
- if (elem1 > elem2) then
- return := elem2
- else
- return := 0;
- f := return;
- end;
- {функция создания нового массива}
- function newMas (oldMas : Tmas; c : integer; var index : integer) : Tmas;
- var
- j : integer;
- nMas : Tmas;
- begin
- for j := 1 to c do
- begin
- nMas[j] := f(oldMas[j-1], oldMas[j], index);
- end;
- newMas := nMas;
- end;
- begin
- // пример для теста для этого заменить A на Atest и закомментировать Input
- Atest[1] := 3; Atest[2] := 4; Atest[3] := 5; Atest[4] := 2; Atest[5] := 2; Atest[6] := 3; Atest[7] := 1; Atest[8] := 5; Atest[9] := 7; Atest[10] := 3;
- write('Введите число членов последовательности: ');
- readln (count);
- Input (A, count);
- write('Исходная ');
- Output (A, count);
- index1 := 1;
- B := newMas(A, count, index1);
- write ('Итоговая ');
- Output (B, count);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement