Массив D=(4, –8, 9, 3, 4, –5, 0) преобразован к виду D=(–2, –14, 3, –3, –2, –11, –6). Размер массива D — 24 элемента из диапазона [–32,32]. Вычислить сумму тех элементов преобразованного массива, которые находятся в диапазоне [–14, 2] — Pascal(Паскаль)

Указания:
— сформировать массив D из 24 случайных целых чисел в диапазоне [–32,32] и вывести элементы массива на экран;

— преобразование массива оформить в виде процедуры;- вычисление суммы оформить в виде функции;

— все выводы на экран осуществлять в основной программе.

const
  kol_el = 24;

type
  mas = array [1 .. kol_el] of integer;

var
  d: mas;

Procedure preobr(var a: mas);
var
  i: integer;
begin
  for i := 1 to kol_el do
    a[i] := a[i] - 6;
end;

Function Sum(b: mas): integer;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to kol_el do
    if (b[i] >= -14) and (b[i] <= 2) then
      s := s + b[i];
  Sum := s;
end;

var
  i: integer;

begin

  Randomize;
  for i := 1 to kol_el do
  begin
    d[i] := random(65) - 32;
    write(d[i]:4);
  end;
  preobr(d);
  writeln;
  writeln;
  for i := 1 to kol_el do
    write(d[i]:4);
  writeln;
  writeln;
  write('сумма элементов =', Sum(d));
  readln;

end.

Результат работы программы

Похожие записи/страницы:

Leave a Comment

47 − = 37