Написать модуль - Turbo Pascal

Формулировка задачи:

Замените с использованием модулей личной библиотеки, каждый положительный элемент массива А заменить на значение суммы первого и последнего элементов массива В;

Код к задаче: «Написать модуль - Turbo Pascal»

textual
unit ybf19;
 
interface {интерфейсная часть}
 
const n = 10;
type TArray = array[1..n] of integer;
 
procedure input (var z : TArray); {ввод массива z}
procedure output (z : TArray); {вывод массива z}
function sumOfFnL (z : TArray) : integer; {сумма 1 и последнего в z}
procedure process (var z : TArray; k : integer); {выполняет замену по заданию}
 
implementation {реализация подпрограмм модуля}
 
procedure input (var z : TArray); {ввод массива z}
var i : integer;
begin
  for i := 1 to n do
    z[i] := random(20) - 10;  
end;
 
procedure output (z : TArray); {вывод массива z}
var i : integer;
begin
  writeln;
  for i := 1 to n do
    write(z[i]:7);
  writeln
end;
 
function sumOfFnL (z : TArray) : integer;
begin
  sumOfFnL := z[1] + z[n]
end;
 
procedure process (var z : TArray; k : integer);
var i : integer;
begin
  for i := 1 to n do
    if z[i] > 0 then z[i] := k
end;
 
end.

14   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы