Найти сумму элементов одномерного числового массива - Turbo Pascal

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

вычислить p= S1-S2,где S1-сумма элементов одномерного числового массива а, а S2-сумма элементов одномерного числового массива b


textual

Код к задаче: «Найти сумму элементов одномерного числового массива - Turbo Pascal»

const
  n = 3;{Количество элементов в массивах. При желании можно изменить}
 
type
  mas = array [1..n] of integer;
 
var
  a, b: mas;
  p, left, right: integer;
 
function sum(x: mas; size: integer): integer;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to size do
    s := s + x[i];
  sum := s
end;
 
procedure Print(x: mas; size: integer);
var
  i: integer;
begin
  for i := 1 to size do
    Write(x[i], ' ');
  Writeln
end;
 
procedure Create(var x: mas; size, d1, d2: integer);
var
  i: integer;
begin
  for i := 1 to size do
    x[i] := Random(d2 - d1 + 1) + d1;
end;
 
begin
  Randomize;
  Writeln('Введите диапазон случ. чисел (лев < прав): ');
  repeat
    Writeln('Левая граница = '); Readln(left);
    Writeln('Правая граница = '); Readln(right);
  until right >= left;
  Create(a, n, left, right);
  Writeln('Массив A:');
  Print(a, n);
  Create(b, n, left, right);
  Writeln('Массив B:');
  Print(b, n);
  p := Sum(a, n) - Sum(b, n);
  Writeln('P = ', p);
  Readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы